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Vorwort 


Als der Atari Portfolio im Oktober 1989 in Deutschland auf den Markt 
kam, konnte man von einer Sensation schlechthin sprechen: Zum ersten¬ 
mal war es gelungen, einen Rechner im Taschenformat herzustellen, der 
nicht nur wie alle bis dahin erschienenen Konkurrenzprodukte einige 
Applikationen wie Taschenrechner und ein eingebautes Basic mitbrachte, 
sondern kompatibel zum IBM-Standard war. Man konnte also davon aus¬ 
gehen, daß ein schier unerschöpfliches Potential von PC-Software zur 
Verfügung stehen würde, welches dieses Gerät in der Pocket-Klasse zum 
uneingeschränkten Marktführer werden lassen könnte. Auch die Erstel¬ 
lung eigener Software sollte dank komfortabler PC-Entwicklungssysteme 
ein Kinderspiel sein. 

Soweit die Theorie. Als ich Ende 1989 im Auftrag der B&B Autoelektronik 
Vertriebs KG in Hannover mit der Entwicklung des elektronischen 
Fahrtenbuches Car-Office für PKW begann, wurde ich jedoch schnell eines 
besseren belehrt. Aufgrund seiner Abmessungen muß der Portfolio gewisse 
Hardware-Differenzen zum PC aufweisen, die sich leider auch auf die 
Software, insbesondere das Betriebssystem auswirken, so daß viele PC- 
Programme auf dem Portfolio nicht korrekt laufen, ja sogar System¬ 
abstürze provozieren. Besonders der LCD-Bildschirm und der für heutige 
Verhältnisse kleine Speicher erfordern Portfolio-spezifische Program¬ 
mierung. Aber auch das Fehlen einiger PC-Betriebssystem-Funktionen 
macht die Arbeit nicht gerade einfacher. 

Der Hersteller und Entwickler des Gerätes, die englische Firma DIP (Atari 
baut den Rechner nur in Lizenz!), ist jedoch nicht bereit, wesentliche 
Informationen herauszurücken, wahrscheinlich, um den Nachbau des 
Gerätes unmöglich zu machen. Ich war deshalb gezwungen, in mühevoller 
Kleinarbeit die wesentlichen Details des Portfolio Byte für Byte selbst 
herauszufinden, da auch von dritter Seite bis heute keinerlei Literatur 
über die Programmierung des Portfolio existiert. 

In dem vorliegenden Buch habe ich zusammen mit dem C-Spezialisten 
Michael Schuschk alle für mich wichtigen Gesichtspunkte der Portfolio- 
Programmierung in Turbo Pascal, Turbo C und Turbo Assembler heraus¬ 
gearbeitet, die es Ihnen einfach machen sollten, diesen Mini-PC zu 
programmieren. So werden z.B. nicht nur Routinen zur Bildschirm¬ 
programmierung im Text- und Grafikmodus vorgestellt, sondern auch auf 
die RAM-Speicherkarten, das serielle Interface und sogar TSR-Programme 
wird eingegangen. Anhand zahlreicher Beispielprogramme (Chart-Grafik- 
Programm, Backup-Programm für Magnetkarten, Capture-Programm, 
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RAM-Kartenverwaltung etc.) werden die theoretischen Kenntnisse sofort in 
der Praxis demonstriert. Die vorgestellten Routinen, wie z.B. eine Pascal- 
Grafik-Unit, können leicht in eigene Programme eingebaut werden, so daß 
Sie sich über den Portfolio-spezifischen Teil Ihrer Programme keine 
Gedanken mehr zu machen brauchen. Da die Funktionen aufrufkom¬ 
patibel zu entsprechenden PC-Routinen sind, können Ihre Programme auf 
dem PC ausgetestet und erst dann auf den Portfolio übertragen werden. 
Im Anhang finden Sie wichtige Hintergrundinformationen, wie z.B. alle 
Portfolio-Interrupts. 

Obwohl ich bislang kein Anhänger von endlosen Danksagungen in Vor¬ 
worten war, möchte ich in diesem Fall eine Ausnahme machen und der 
Firma COM-DATA dafür danken, daß sie als einziger Händler in Hannover 
die benötigte Portfolio-Peripherie genau dann vorrätig hatte, als ich sie 
brauchte, und einen von mir zerstörten Portfolio so unbürokratisch 
umtauschte. 

Ich hoffe, daß Sie von meinen zahlreichen Nachtsitzungen mit dem Port¬ 
folio profitieren können (insgesamt stecken über 2000 Stunden Portfolio- 
Erfahrung in diesem Buch) und wünsche Ihnen viel Erfolg bei seiner 
Programmierung. 

Frank Riemenschneider 
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Kapitel 1: Unterschiede zwischen PC und Portfolio 


In den folgenden Abschnitten möchte ich auf die für die Programmierung 
des Portfolio wesentlichen Unterschiede zum PC eingehen. 

Bitte haben Sie Verständnis dafür, daß ich hier keine Systembeschreibung 
eines PC geben kann, da das Buch sonst leicht 1000 Seiten oder mehr 
aufweisen würde. Im Anhang sind entsprechende Literaturhinweise 
aufgeführt. 


1.1 Der Adreßraum 

Der im PC und Portfolio verwendete Prozessor 8088 besitzt einen Adreß¬ 
bus von 16 Bit Breite. Damit ist es möglich, einen Speicherbereich von 
2 16 = 65536 Byte zu adressieren. Galt dieser Wert zu Zeiten eines C64 
noch als Sensation, so sahen die Entwickler des 8088, daß dieser Speicher 
für anspruchsvolle Anwendungen nie und nimmer ausreichend sein 
würde. 

Da es zu dieser Zeit jedoch technisch noch schwierig bis unmöglich war, 
einen breiten Adreßbus zu bauen, bediente man sich eines Tricks, der so¬ 
genannten Segmentierung. Hierbei wird die physikalische Adresse durch 
zwei jeweils 16 Bit große Anteile gebildet, wobei der erste Anteil Segment 
genannt wird, der zweite Anteil Offset. 

Diese beiden Anteile werden nun nicht einfach addiert, was höchstens 
einen 17-Bit-Wert ergeben könnte, sondern die 16 Bit des Segments 
werden um 4 Bit nach links verschoben, was einer Multiplikation mit 16 
gleichkommt, erst dann wird der Offset aufaddiert. So ergibt sich 
insgesamt ein 20-Bit-Wert, womit 2 20 = 1048576 Byte (1 Megabyte) 
adressiert werden können: 
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Bild 1.1: Bildung der 
Adresse über Segment 
und Offset 


Diese Größenordnung bewegt sich schon in einem anderen Rahmen als 
die ursprünglichen 64 Kbyte, der Nachteil der Methode ist jedoch in der 
wesentlich verringerten Zugriffsgeschwindigkeit auf den Speicher zu 
sehen, da die physikalische Adresse erst aus Segment und Offset gebildet 
werden muß. Als Schreibweise für eine durch Segmentierung gewonnene 
Adresse hat sich durchgesetzt, erst den Segmentanteil und dann, durch 
einen Doppelpunkt getrennt, den Offsetanteil zu schreiben. So würde z.B. 
der Ausdruck 

$E000:$0224 

die Speicherzelle $E000*16+$0224 = $E0224 = 918052 adressieren. Die 
Schreibweise ist etwas verwirrend, da im Speicher selbst erst der Offset- 
und dann der Segmentanteil abgelegt wird. So würde der obige Ausdruck 
im Speicher als Bytefolge 

$24 $02 $00 $E0 

abgelegt, wobei noch zu beachten ist, daß bei 16-Bit-Wörtem immer erst 
die niederwertigen 8 Bit und dann die höherwertigen gespeichert werden. 
Dies ist ganz wichtig, wenn man auf irgendwelche Sprungvektoren (z.B. 
die der Interrupts) zugreift, da bei falscher Reihenfolge des Segment- und 
Offsetanteils und/oder bei Vertauschung des Low- und High-Byte der 
jeweiligen 16-Bit-Wörter natürlich an eine völlig falsche Adresse gesprun¬ 
gen wird, was einen Systemabsturz zur Folge haben kann. 

Die Adreßbildung durch Segmentierung ist im Gegensatz zur linearen 
Adressierung nicht eindeutig. Da ein Segment an jeder durch 16 teilbaren 
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Speicherstelle beginnen kann, der Offset jedoch einen Bereich von 
64 Kbyte abdeckt, kann in unserem Beispiel die Speicherstelle 918052 
z.B. auch durch die Ausdrücke 

$E022:$0004 oder $D023:$FFF4 

beschrieben werden. Normalerweise müßte der Prozessor bei jedem 
Speicherzugriff (egal, ob es sich um Programmcode, Daten oder Stack 
handelt) Segment und Offset auslesen. Man kann sich nun leicht vorstel¬ 
len, daß mit diesem Verfahren riesige und langsame Programme ent¬ 
ständen, da der 8088 nur über einen 8-Bit-Datenbus verfügt. Um die 32 
Bit von Segment und Offset zu lesen, wären also nicht weniger als vier (!) 
Speicherzugriffe erforderlich. Um dies zu vermeiden, wurden dem Prozes¬ 
sor vier Segmentregister spendiert, in denen sich die Segmentadressen von 
Code, Daten und Stack befinden. Alle Speicherzugriffe geschehen nun 
relativ zu diesen Segmentadressen, so daß grundsätzlich nur noch 16 Bit 
gelesen werden müssen. Ausschließlich bei Sprüngen ist die Möglichkeit 
vorhanden, auch das Segment der Zieladresse explizit anzugeben, ohne 
daß ein Segmentregister als Basis verwendet würde. 

Nach diesem kleinen Exkurs in die Adreßbildung des 8088 (Experten 
mögen mir verzeihen ...) soll nun auf die tatsächliche Belegung der adres¬ 
sierbaren Bytes eingegangen werden. 

Zunächst fällt auf, daß der Portfolio auch bei vollem Speicherausbau vier 
Kbyte weniger RAM besitzt als der PC. Dies liegt daran, daß das Video- 
RAM ab $B000:$0000 beim Portfolio von einem Teil eines System-RAM- 
Chips zur Verfügung gestellt wird, während der PC hierfür ein separates 
RAM aufweist, was schon deshalb erforderlich ist, weil sein Video-RAM 
64 Kbyte umfaßt. Der Bereich ab $A000:$0000 liegt beim Portfolio brach, 
da hier natürlich keine zusätzliche Grafikkarte installiert werden kann. 
Der PC läßt die Installation einer MDA-Monochrom-Karte und gleichzeitig 
die einer Farbgrafikkarte zu. Dabei benutzt die MDA-Karte die unteren 
32 Kbyte des Video-RAM, während die Farbgrafikkarte die oberen 
32 Kbyte belegt. Natürlich werden tatsächlich nur 4 Kbyte (MDA) und 
16 Kbyte (Grafik) benutzt, so daß beim PC mindestens 44 Kbyte des Video- 
RAM unbenutzt bleiben. Anders beim Portfolio: Er besitzt gerade die 
4 Kbyte, die für die Textdarstellung im 80x25-Modus bzw. die Grafikdar¬ 
stellung im 240x64-Modus erforderlich sind (mehr hierzu in Abschnitt 1.2). 
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F000 : FFFF 

F000 :0000 

SYSTEM ROM 2 

F000 : FFFF 

F000 :0000 

BIOS-ROM 


E000 : 0000 


E000 : 0000 

Speicherplatz für 
ROM-Erweiterungen 

D000 : 0000 

SYSTEM ROM 1 oder 

D000 : 0000 

C000:0000 

SPEICHERKARTEN A:/B: 

C000 :0000 

Speicherplatz für 
zusätzliches ROM-BIOS 

Bl00 : 0000 

Kopie des VIDEO-RAMS 

VIDEO-RAM 

B000 : 0000 

VIDEO-RAM (MDA-kompatibel) 

B000 :0000 

A000 : 0000 

Nicht belegt 

A000 : 0000 

Speicherplatz für 
zusätzliches VIDEO-RAM 

9F00 :0000 

Nicht belegt 

RAM- 

ERWEITERUNG 

RAM- 

ERWEITERUNG 

80000 : 0000 

3F00 : 0000 

SYSTEM-RAM 
(512 KBYTE) 

0000 : 0000 

SYSTEM-RAM 
(124 KBYTE) 

0000 : 0000 


Adreßraum PORTFOLIO Adreßraum PC 


Bild 1.2: Vergleich der Adreßräume des PC und des Portfolio 

Der PC besitzt serienmäßig nur 64 Kbyte ROM, welches das BIOS enthält. 
Das DOS, der Kommandoprozessor, die Gerätetreiber etc. liegen als Files 
vor, die beim Booten des Systems eingeladen werden und somit Speicher¬ 
platz im RAM benötigen. Dies ist beim Portfolio nicht der Fall: Nicht nur 
das BIOS, sondern auch das DOS, der Kommandoprozessor, die Geräte¬ 
treiber und alle Applikationen sind im ROM verankert und benötigen 
somit nur RAM-Speicher für die Systemvariablen, den Tastaturpuffer etc., 
also für die Dinge, die ständig modifiziert werden müssen. Da natürlich 
viel Platz für den Programmcode benötigt wird, besitzt der Portfolio ins¬ 
gesamt 256 Kbyte ROM, wobei in den unteren 128 Kbyte ab $C000:$0000 
ausschließlich Applikationen enthalten sind, während in den oberen 128 
Kbyte ab $E000:$0000 nur noch wenig Applikationssoftware zusammen 
mit dem BIOS, DOS, dem Kommandoprozessor und den Gerätetreibern 
verankert ist. Der Vorteil dieser Methode ist darin zu sehen, daß kaum 
System-RAM benötigt wird und das System in kürzester Zeit gebootet 
werden kann. Der eklatante Nachteil besteht in der Unveränderbarkeit des 
Codes: Alle Programmierfehler innerhalb des Systems (davon gibt es reich¬ 
lich!) bleiben bis zu einer neuen Version erhalten. Auch ein Aufruf des 
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Kommandoprozessors ist von anderen Programmen aus nicht möglich, da 
ein File COMMAND.COM natürlich nicht existiert. Ein möglicher direkter 
Einsprung in das ROM verbietet sich von selbst, da man aus dem 
Kommandoprozessor nie wieder zurück in das aufrufende Programm 
käme. Wenigstens besteht die Möglichkeit, über sogenannte ROM- 
Extensions das BIOS und DOS zu erweitern bzw. zu modifizieren. Auch 
eigene Gerätetreiber können eingebunden werden, wie man es vom PC 
kennt (.SYS-File), wobei der entsprechende ROM-Treiber automatisch 
ersetzt wird. 

Der Adreßbereich von $C000:0000 bis $COOO:$FFFF ist beim Portfolio 
doppelt belegt: Durch Bank-Switching kann das Applikations-ROM aus¬ 
geblendet und hierfür eine RAM-Speicherkarte (im folgenden CCM für 
Credit Card Memory genannt) in den Adreßbereich des Prozessors gebracht 
werden. Für die Umschaltung des Prozessorports steht ein eigener Soft¬ 
ware-Interrupt zur Verfügung (siehe hierzu Abschnitt 1.4). Bei eingeblen¬ 
detem CCM hat der Aufruf einer Applikation verheerende Folgen: Statt des 
Applikationscodes wird ein (nicht vorhandener) Programmcode auf dem 
CCM aufgerufen, was meistens den Absturz des Rechners zur Folge hat. 
Man sollte es sich daher angewöhnen, sofort nach Zugriff auf das CCM 
das ROM wieder einzublenden, damit einem solche Überraschungen 
erspart bleiben. 

Man sieht, daß der Portfolio annähernd gleich aufgebaut ist wie der PC. 
Allerdings kann man daraus nicht schließen, daß alle PC-Programme 
auch auf dem Portfolio laufen, da die Hardwareadressen völlig unter¬ 
schiedlich sind. Da immer mehr Programme aus Geschwindigkeitsgründen 
direkt auf die Hardware zugreifen (z.B. die CRT-Unit von Turbo Pascal), 
erlebt man die eine oder andere sehr unangenehme Überraschung. Dazu 
aber später in Kapitel 2. 

Zum Schluß noch ein Wort zu möglichen Erweiterungen: Absolut unbe¬ 
nutzt ist in jedem Fall der Bereich von $9F00:$0000 bis $AOOO:$FFFF. 
Hier könnten z.B. über den Expansions-Port noch weitere RAM-Bausteine 
eingeblendet werden. Bei externen Geräten muß man jedoch aufpassen: 
Da der Portfolio im Gegensatz zum PC keinen programmierbaren Inter¬ 
rupt-Controller beinhaltet, existiert nur eine Interrupt-Leitung, die sich 
alle Geräte teilen müssen. Wenn Sie z.B. eine serielle Schnittstelle ange¬ 
schlossen haben, welche die Leitung zum interruptgesteuerten Daten¬ 
empfang benötigt, haben Sie keine Möglichkeit mehr, noch ein weiteres 
Gerät anzuschließen, das ebenfalls auf die Interruptleitung angewiesen ist. 
Diese Tatsache wertet meiner Meinung nach den Portfolio weit mehr ab als 
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der kleine Bildschirm oder der geringe Speicher. Die einzige Lösungs¬ 
möglichkeit des Problems besteht darin, einen eigenen Interruptcontroller 
zu installieren, dessen Ausgang dann an die Interrupt-Leitung des Port¬ 
folio geschaltet wird. Allerdings können Geräte dann nicht mehr direkt an 
den Systembus angeschlossen werden, so daß insgesamt das Fazit zu 
ziehen ist, daß dieser Engpaß nur durch einen enormen Hard- und Soft¬ 
wareaufwand zu beseitigen ist. 


1.2 Die Interrupts des Portfolio 

Bei kaum einer anderen Prozessorfamilie spielen die Interrupts eine derart 
dominierende Rolle wie bei den 80XX-Prozessoren, bieten Sie dem Pro¬ 
grammierer doch Zugang zum Betriebssystem (DOS) und zum BIOS. Bevor 
ich auf die Unterschiede der einzelnen Interrupts eingehe, lassen Sie mich 
einige grundsätzliche Dinge zum Thema Interrupt sagen, da gerade dieser 
Bereich der Programmierung für viele Leute immer noch etwas Mystisches 
beinhaltet, das nur einigen wenigen Eingeweihten bekannt ist. 

Dabei ist die Sache wirklich einfach: Dem Prozessor wird mitgeteilt, daß 
das laufende Maschinenprogramm unterbrochen werden soll. Dies kann 
durch einen Impuls an einer sogenannten Interrupt-Leitung des Prozes¬ 
sors geschehen (Hardware-Interrupt) oder durch eine Assembler¬ 
anweisung, den Befehl INT (Software-Interrupt). In beiden Fällen reagiert 
der Prozessor gleich: Zunächst wird der gerade bearbeitete Maschinen¬ 
befehl bis zum Ende abgearbeitet, dann wird das Flag-Register auf den 
Stack gebracht. Warum dies? Nun, stellen Sie sich folgende Assembler¬ 
sequenz vor: 


sub ax, 10 
jz lOOPl 


Nehmen wir an, während der Abarbeitung des SUB-Befehls würde ein 
Hardware-Interrupt ausgelöst, was z.B. durch die Tastatur möglich wäre. 
Falls das Flag-Register nicht gerettet würde, könnte man fast mit Sicher¬ 
heit davon ausgehen, daß es nach der Rückkehr in das Hauptprogramm 
einen anderen Wert aufweist als vorher. Der bedingte Sprung, der nun 
folgt, würde also seine Entscheidung aufgrund eines veränderten Zero- 
Flags treffen, was zu einer falschen Programmfunktion führen würde. Da 
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fast jeder Maschinenbefehl das Flag-Register beeinflußt, ist es sicherlich 
sinnvoll, dies automatisch zu retten. 

Jetzt wird der Programmzeiger auf den Stack gebracht, damit der Prozes¬ 
sor später weiß, wo er das unterbrochene Programm fortsetzen muß. Als 
nächstes wird dann in die Interrupt-Service-Routine gesprungen, die 
nichts anderes als ein normales Maschinenprogramm darstellt, das mit 
dem Befehl IRET abgeschlossen wird. Dieser Befehl bewirkt folgendes: Das 
Flag-Register und die Rücksprungadresse werden wieder vom Stack geholt 
und das unterbrochene Programm kann fortgesetzt werden; es hat von 
dem Interrupt-Aufruf praktisch nichts mitbekommen, wenn Sie als Inter¬ 
rupt-Programmierer nicht einen typischen Fehler gemacht haben: Im 
Gegensatz zu dem Flag-Register werden die übrigen Register nämlich nicht 
automatisch gerettet, was sinnvoll ist, da der Prozessor ja gar nicht wissen 
kann, welche Register in der Interrupt-Service-Routine benutzt werden. 
Man muß daher alle benutzten Register per Hand auf den Stack retten 
und sie vor dem IRET-Befehl wieder herunterholen. 


Die Interrupt-Vektor-Tabelle 

Bislang wurde gesagt, daß in eine Interrupt-Service-Routine gesprungen 
wird. Die berechtigte Frage ist, wo diese denn zu finden ist. Eine weitere 
Frage ist, wie man zwischen einzelnen Interrupt-Aufrufen differenzieren 
kann, denn bei einem Tastatur-Interrupt ist natürlich eine andere Reak¬ 
tion angebracht als bei einem Disketten-Fehler. Um hier unterscheiden zu 
können, hat man einfach 256 verschiedene Interrupts definiert, was für 
alle Zwecke ausreichen dürfte. Bei den Software-Interrupts wird einfach 
hinter dem INT-Befehl die entsprechende Interruptnummer angegeben, so 
daß der Prozessor anhand dieser Nummer den gewünschten Interrupt 
aufrufen kann. Schwieriger ist die Sache bei den Hardware-Interrupts: 
Hier ist für jeden Interrupt eine eigene Leitung des Prozessors erforderlich, 
weshalb sich die Anzahl der Hardware-Interrupts auch sehr in Grenzen 
hält (acht externe Interrupts, fünf Interrupts direkt vom Prozessor). 

Die Adressen der einzelnen Interrupt-Service-Routinen holt sich der Pro¬ 
zessor aus der sogenannten Interrupt-Vektor-Tabelle. Sie beginnt an der 
untersten Stelle des Adreßraums, also bei $0000:$0000, und weist für je¬ 
den Interrupt einen 4 Byte langen Eintrag auf: die Segment- und Offset¬ 
adresse der Interrupt-Service-Routine. Damit ist die Tabelle 4x256 = 1024 
Byte lang, wobei dem Interrupt 0 die ersten 4 Byte ($0000: $0000 bis 
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$0000:$0003) zugeordnet sind, dem Interrupt 255 die letzten 4 Byte 
($0000:$03FC bis $0000:$03FF). Um die korrespondierende Adresse eines 
bestimmten Interrupts zu finden, muß man nur seine Nummer mit 4 mul¬ 
tiplizieren und erhält den Offset innerhalb der Interrupt-Vektor-Tabelle 
(z.B. $0008 für den Interrupt 2). Innerhalb eines Eintrags findet man 
zunächst den Offset (Low- dann High-Byte) und anschließend das Seg¬ 
ment (Low- und Highbyte), wie es auch schon in Abschnitt 1.1 beschrie¬ 
ben wurde. Im Prinzip können übrigens alle 256 Interrupts vom Programm 
aus mit einem INT-Befehl aufgerufen werden, also auch die Hardware- 
Interrupts. So wird z.B. über den Interrupt 5 eine Hardcopy des aktuellen 
Bildschirms gedruckt. Normalerweise ist dieser Interrupt als Hardware- 
Interrupt konzipiert, der auf die Tasten (Tn] und [p] reagiert. Niemand 
kann Sie jedoch daran hindern, diesen Interrupt von einem Programm aus 
mit dem Befehl INT 5 aufzurufen, wenn Sie eine Hardcopy wünschen. Bei 
den meisten Hardware-Interrupts ist ein softwaremäßiger Aufruf jedoch 
nicht sehr ratsam. 

Der Hintergedanke dieser Methode besteht darin, daß man eine Tabelle im 
RAM natürlich leicht modifizieren und somit den Interruptvektor auf eine 
eigene Service-Routine umlenken kann. In weiser Vorraussicht hat z.B. 
DOS einen Hardware-Interrupt eingerichtet, der bei jedem Ablauf eines 
Timers ausgelöst wird, im PC 18,2mal in einer Sekunde (Interrupt-Num¬ 
mer 8). Da dem DOS (bzw. seinen Erfindern) jedoch keine Verwendung 
eingefallen ist, schließt es die Service-Routine einfach mit einem IRET- 
Befehl ab. Einigen Programmieren ist jedoch eine Anwendung eingefallen, 
z.B. die ständige Ausgabe der Uhrzeit auf dem Bildschirm. Sie beschreiben 
die Interrupt-Vektor-Tabelle also ab der Stelle $0020 (4x8=32=$20) mit der 
Segment- und Offsetadresse einer eigenen Routine (man nennt dieses 
Verfahren »Verbiegen des Interruptvektors«) und können nun sicher sein, 
daß diese Routine im PC 18,2mal in der Sekunde aufgerufen wird. (Im 
Portfolio liegen die Dinge etwas anders, dazu aber später.) Ohne den 
Timer-Interrupt wäre eine solche Programmierung schwierig bis unmög¬ 
lich, so daß man dankbar sein kann, daß die Möglichkeit besteht, auch 
wenn sie von DOS nicht genutzt wird. 

Im folgenden habe ich alle Interrupts des Portfolio zusammengestellt, 
wobei ich in der Spalte »Adresse« nicht die Adresse des Interrupt-Vektors 
(die kann man ja einfach berechnen, s.o.), sondern die Adresse der 
tatsächlichen Interrupt-Service-Routine angegeben habe, also den Inhalt 
des Interrupt-Vektors. In der vorletzten Spalte ist die Art des Interrupt 
angegeben, wobei ein »S« für Software-Interrupt und ein »H« für Hardware- 
Interrupt steht. Ein »T« hingegen markiert einen Tabelleninterrupt. Dies ist 


16 



_Kapitel 1 

ebenfalls ein Vektor, der jedoch auf eine für DOS wichtige Tabelle zeigt 
(z.B. Interrupt $1E), also auf gar keinen Fall mit dem INT-Befehl aufgeru¬ 
fen werden darf. Mit einem »F« sind diejenigen Interrupts markiert, deren 
Vektor zwar auf eine Service-Routine zeigt, die jedoch nicht mit einem 
IRET-, sondern einem RET FAR-Befehl abgeschlossen sind. Dadurch wird 
zwar die Rücksprungadresse vom Stack geholt, nicht jedoch das Flag- 
Register. Dies muß »per Hand« nachgeholt werden, damit langfristig ein 
Stacküberlauf verhindert wird und die gleiche Situation wie vor dem Inter¬ 
rupt-Aufruf gegeben ist. Allein durch diese Konzeption bedingt sollte man 
aber einsehen, daß es nicht sinnvoll sein kann, diese Interrupts mit einem 
INT-Befehl aufzurufen. 

In der letzten Spalte finden Sie Hinweise zu besonderen Interrupts: Zum 
einen besagt der Eintrag IRET, daß die Interrupt-Service-Routine nur aus 
einem einzigen Befehl besteht, nämlich dem Rücksprung-Befehl ins 
unterbrochene Programm. Der aufgerufende Interrupt bewirkt also über¬ 
haupt nichts! Einige andere Interrupts sind mit der Bemerkung INT 
gekennzeichnet. Hier handelt es sich um interne DOS- oder BlOS-Inter- 
rupts, die man möglichst nicht aufrufen sollte, da sie nicht dokumentiert 
sind und in späteren Betriebssystemversionen durchaus ihre Funktion 
ändern oder ganz verschwinden können. Bevor ich auf die Unterschiede 
zum PC eingehe, hier erst einmal die Tabelle mit allen Portfolio-Interrupts 
der BIOS-Version 1.052: 


Interrupttabelle Atari-Portfolio BIOS 1.052 

Nr. 

Adresse 

Funktion 

IA 

Bern. 

$00 

03D2:OOCE 

Division durch Null 

H 


$01 

E000:246D 

Einzelschritt 

H 

IRET 

$02 

E000:1CB2 

NMI (Fehler in Speicher) 

H 


$03 

E000:246D 

Breakpoint erreicht 

H 

IRET 

$04 

E000:246D 

Numerischer Überlauf 

H 

IRET 

$05 

E000:1F12 

Hardcopy 

H 


$06 

0000:0000 

unbelegt 



$07 

0000:0000 

unbelegt 




$08 E000: 2 9F1 Timer H 


$09 

E000:14F1 

Tastatur 

H 

$0A 

0000:0000 

unbelegt 


$0F 

0000:0000 

unbelegt 
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Interrupttabelle Atari-Portfolio BIOS 1.052 

Nr. 

Adresse 

Funktion 

IA 

Bern. 

$10 

EOOO:2B8B 

BIOS: Video-Funktionen 

S 


$11 

EOOO:1D60 

BIOS: Konfiguration 

$ 


$12 

EOOO:1CA6 

BIOS: Speichergröße 

S 


$13 

EOOO:0AE5 

BIOS: Magnetkorten/RAM-Disk 

$ 


$14 

EOOO:2470 

BIOS: Serielles Interface 

s 


$15 

EOOO:1C78 

Keine Funktion 

$ 


$16 

EB32:0069 

BIOS: Tastaturobfrage 

s 


$17 

EOOO:1DAE 

BIOS: Paralleles Interface 

s 


$18 

EOOO:0483 

Keine Funktion 

s 


$19 

EOOO:0524 

BIOS: Reset (Alt/Ctrl/Del) 

s 


S1A 

EOOO:0618 

BIOS: Zeit/Datum ermitteln 

s 


$1B 

FFOO:0562 

Programmabbruch 

s 


$1C 

EOOO:246D 

Aufruf nach jedem INT08 

$ 

IRET 

$1D 

0000:0000 

unbelegt 



SIE 

0040:01F2 

Disk-Porometer-Tobelle 

T 


$1F 

0000:0000 

unbelegt 



$20 

E527:3281 

DOS: Programm beenden 

$ 


$21 

E527:44DA 

DOS: DOS-Funktionen 

S 


$22 

F24F:026C 

Adresse DOS-Programmende 

A 


$23 

03D2:00D5 

Adresse DOS Ctrl/Break 

A 


$24 

03D2:009D 

Adresse DOS Fehler 

A 


$25 

E527:05B8 

DOS: Magnetkarte lesen 

S 


$26 

E527:05BE 

DOS: Magnetkarte schreiben 

S 


$27 

E527:32CC 

DOS: Prg. resident beenden 

S 


$28 

E527:04B3 

Aufruf bei Tastaturpolling 

S 

IRET 

$29 

FFOO:0555 

DOS: Zeichen ausgeben 

$ 

INT 

$2A 

E527:04B3 

Keine Funktion 

S 

IRET 

$2B 

0000:0000 

unbelegt 



$3E 

0000:0000 

unbelegt 



$3F 

03D2:00C6 

Keine Funktion 

S 


$40 

0000:0000 

unbelegt 



$41 

0040:01F2 

Disk-Parameter-Tabelie 

T 


$42 

0000:0000 

unbelegt 



$49 

0000:0000 

unbelegt 
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Interrupttabelle Atari-Portfolio BIOS 1.052 


Nr. 

Adresse 

Funktion 

IA 

Bern. 

$4A 

FF9A:0227 

Alarmzeit erreicht 

$ 


$4B 

0000:0000 

unbelegt 



$5F 

0000:0000 

unbelegt 



$60 

EA00:07E9 

DIP: BIOS-Funktionen 

S 

INT 

$61 

E000:327F 

DIP: BIOS-Funktionen 

S 


$62 

0000:0000 

unbelegt 



$FF 

0000:0000 

unbelegt 




Bei der neuesten ausgelieferten BlOS-Version 1.072 haben sich praktisch 
alle Interrupt-Adressen geändert, so daß hierfür folgende Tabelle gültig ist: 


Interrupttabelle Atari-Portfolio BIOS 1.072 


Nr. 

Adresse 

Funktion 

IA 

Bern. 

$00 

0380:00CE 

Division durch Null 

H 


$01 

E000:24D7 

Einzelschritt 

H 

IRET 

$02 

E000:1D06 

NMI (Fehler in Speicher) 

H 


$03 

E000:24D7 

Breakpoint erreicht 

H 

IRET 

$04 

EOOO:24D7 

Numerischer Überlauf 

H 

IRET 

$05 

EOOO:1F6C 

Hardcopy 

H 


$06 

0000:0000 

unbelegt 



$07 

0000:0000 

unbelegt 



$08 

EOOO:2A5B 

Timer 

H 


$09 

EOOO:1545 

Tastatur 

H 


$0A 

0000:0000 

unbelegt 



$0F 

0000:0000 

unbelegt 



$10 

EOOO:2BF5 

BIOS: Video-Funktionen 

S 


$11 

EOOO:1DB4 

BIOS: Konfiguration 

s 


$12 

EOOO:1CFA 

BIOS: Speichergröße 

s 


$13 

EOOO:0B20 

BIOS: Magnetkarten/RAM-Disk 

$ 


$14 

EOOO:24DA 

BIOS: Serielles Interface 

s 


$15 

EOOO:1CCC 

Keine Funktion 

s 













Interrupftabelle Atari-Portfolio BIOS 1.072 


Nr. 

Adresse 

Funktion 

IA 

$16 

EB3E:005E 

BIOS: Tastaturabfrage 

S 

$17 

E000:1E02 

BIOS: Paralleles Interface 

S 

$18 

EOOO:048F 

Keine Funktion 

s 

$19 

EOOO:0530 

BIOS: Reset (Alt/Ctrl/Del) 

$ 

$1A 

EOOO:0653 

BIOS: Zeit/Datum ermitteln 

s 

$18 

FFOO:0562 

Programmabbruch 

s 

$1C 

EOOO:24D7 

Aufruf nach jedem INT08 

s 

$1D 

0000:0000 

unbelegt 


$1E 

0040:01F4 

Disk-Parameter-Tabelle 

T 

$1F 

0000:0000 

unbelegt 


$20 

E52D:32E0 

DOS: Programm beenden 

$ 

$21 

E52D : 451C 

DOS: DOS-Funktionen 

S 

$22 

F25C : 02 6D 

Adresse DOS-Programmende 

A 

$23 

0380 : 00D5 

Adresse DOS Ctrl/Break 

A 

$24 

0380 : 009D 

Adresse DOS Fehler 

A 

$25 

E52D:05BF 

DOS: Magnetkarte lesen 

S 

$26 

E52D : 05C5 

DOS: Magnetkarte schreiben 

S 

$27 

E52D:32FB 

DOS: Prg. resident beenden 

S 

$28 

E52D:04BA 

Aufruf bei Tastaturpolling 

s 

$29 

FFOO : 0555 

DOS: Zeichen ausgeben 

s 

$2A 

E52D.-04BA 

Keine Funktion 

s 

$2B 

0000:0000 

unbelegt 


$3E 

0000:0000 

unbelegt 


$3F 

0380 : 00C6 

Keine Funktion 

$ 

$40 

0000:0000 

unbelegt 


$41 

0040:01F4 

Disk-Parameter-Tabelle 

T 

$42 

0000:0000 

unbelegt 


$49 

0000:0000 

unbelegt 


$4A 

FF9F:0227 

Alarmzeit erreicht 

S 

$4B 

0000:0000 

unbelegt 


<y> : 
t_ri : 

0000:0000 

unbelegt 


$60 

EAOC:07DE 

DIP: BIOS-Funktionen 

$ 

$61 

EOOO:32E6 

DIP: BIOS-Funktionen 

S 

$62 

0000:0000 

unbelegt 


$FF 

0000:0000 

unbelegt 
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Die Belegung der Interrupts stimmt mit dem PC überein, wenn man von 
einigen Ausnahmen absieht: So sind beim Portfolio viele Interrupts unbe¬ 
legt, weil einfach die entsprechende Hardware nicht vorhanden ist (z.B. 
Festplatten-Interrupt Nr. $0D). Auch der Interrupt der ersten seriellen 
Schnittstelle ist unbelegt, weil das Portfolio-Interface keinen festen Inter¬ 
rupt benutzt wie der PC, sondern im Prinzip jeden Interrupt belegen kann. 
(Dazu aber mehr in Abschnitt 1.6.) Beim PC enthält der Tabelleninterrupt 
$41 die Adresse der ersten Festplatten-Tabelle. Um diesen Interrupt nicht 
unbelegt zu lassen, hat man ihn beim Portfolio mit einer Kopie des Inter¬ 
rupt $1E (Disk-Parameter-Tabelle) belegt, wobei mit »Disk« die interne 
RAM-Disk sowie die CCMs gemeint sind. Der Interrupt $18 (ROM-Basic) 
ist zwar belegt, die Interrupt-Service-Routine gibt jedoch nur eine Meldung 
aus, daß kein ROM-Basic vorhanden ist. 

Ein Unterschied mit weitreichenden Folgen besteht beim internen Inter¬ 
rupt $28. Man muß zunächst wissen, daß der Befehlsinterpreter 
(COMMAND.COM) im PC beim Warten auf eine Eingabe des Benutzers die 
Tastatur durch Polling abfragt, d.h., in einer Schleife wird ständig nach¬ 
gesehen, ob eine Taste gedrückt wurde. Der Vorteil dieser Methode besteht 
darin, daß zwischendurch noch andere Aufgaben wahrgenommen werden 
können. Hierzu dient beim PC der Interrupt $28. Er sendet z.B. Zeichen 
an den Drucker, wenn durch den PRINT-Befehl eine Hintergrundausgabe 
gestartet wurde. Wichtig ist aber vor allen Dingen, daß die meisten TSR- 
Programme mit seiner Hilfe feststellen, ob das Hintergrundprogramm 
durch den Druck eines Hot-Keys unterbrochen werden darf. Auf dem 
Portfolio ist dieser Interrupt unbelegt, da der Befehlsinterpreter die 
Tastatur nicht durch Polling abfragt, sondern eine BIOS-Funktion benutzt, 
die wartet, bis eine Taste gedrückt wurde. Ist dies längere Zeit nicht der 
Fall, wird der Portfolio stufenweise heruntergeschaltet, was sich z.B. durch 
Abschalten des Bildschirms äußert. Mit diesem Verfahren ist es möglich, 
gegenüber dem Polling erhebliche Einsparungen an Strom zu erzielen, was 
im Gegensatz zum Portfolio beim PC ja keine Rolle spielt. Die unan¬ 
genehme Konsequenz besteht nun darin, daß praktisch kein für den PC 
entwickeltes TSR-Programm auf dem Portfolio korrekt läuft, da der Inter¬ 
rupt $28 vom COMMAND.COM nicht aufgerufen wird. Durch trickreiche 
Programmierung ist es zwar möglich, auch für den Portfolio TSR-Pro- 
gramme zu entwickeln (siehe Kapitel 2.8), diese können aber wie gesagt 
nicht einfach vom PC übernommen werden. 

Um die spezielle Hardware des Portfolio steuern zu können, hat die Firma 
DIP erweiterte BIOS-Funktionen zur Verfügung gestellt, die über den 
Interrupt $61 aufgerufen werden. Dieser Interrupt ist beim PC unbelegt 
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und führt zu Problemen bei der Entwicklung von Portfolio-Software auf 
dem PC, da dieser natürlich beim Aufruf des unbelegten Interrupt $61 
abstürzt. DIP bietet daher ein selbstentwickeltes Emulationsprogramm für 
den PC an, das den Interrupt $61 belegt und die meisten Funktionen auch 
auf dem PC emulieren kann. Der Interrupt $60 ist beim PC ebenfalls 
unbelegt, dient aber auch beim Portfolio nur internen Zwecken, so daß 
man auf seinen Aufruf verzichten sollte. 


1.3 Der LCD-Bildschirm 

Der Portfolio stellt nur zwei Video-Modi zur Verfügung: Einen Textmodus 
in der Auflösung von 80x25 Zeichen, der erfreulicherweise MDA-kompa- 
tibel ist, sowie einen völlig inkompatiblen Grafikmodus in der Auflösung 
von 240x64 Grafikpunkten. Die beiden Video-Modi können über den 
BlOS-Interrupt $10 gesetzt werden, wobei der Modus $07 (Text) bzw. $0A 
(Grafik) verwendet werden muß. Alle anderen für den PC zulässigen Video- 
Modi (0 bis 6) sind beim Portfolio nicht anwendbar. 

Zunächst zum Textmodus: Um nicht die gesamte PC-Software, die auf 
einem 80x25-Bildschirm basiert, für den Portfolio unbenutzbar zu 
machen, hat man sich bei DIP ein Verfahren überlegt, wie man trotz des 
Miniaturbildschirms, der nur 40x8 Zeichen darstellt, auch diese Pro¬ 
gramme ablaufen lassen kann. Zunächst einmal legte man das Video-RAM 
nach $B000:$0000, um einen MDA-kompatiblen Adreßraum zu haben, so 
daß auch Programme, die direkt in den Bildschirmspeicher schreiben, 
benutzt werden können. Für jedes Zeichen werden 2 Byte reserviert, so 
daß insgesamt 80x25x2 = 4000 Byte belegt werden. Das erste Byte ent¬ 
spricht dem ASCII-Code des Zeichens, das zweite dem sogenannten Attri¬ 
but-Byte, welches beim PC die Eigenschaften der Darstellungsweise des 
Zeichens (z.B. invertiert, unterstrichen etc.) festlegt. Beim Portfolio hat das 
Attribut-Byte keinerlei Wirkung, da der LCD-Controller nicht in der Lage 
ist, andere als »normale« Zeichen darzustellen. Die unangenehme Folge 
davon ist, daß alle Programme, die z.B. mit Auswahlbalken etc. arbeiten 
und dazu natürlich invertierte Darstellungen benötigen (z.B. Turbo 
Pascal), nicht mehr korrekt funktionieren können, da der Auswahlbalken 
schlicht und einfach nicht sichtbar ist. Man muß diese Programme so 
umschreiben, daß sie z.B. einen Auswahlpfeil benutzen, auf keinen Fall 
aber irgendwelche Informationen mit Hilfe des Attribut-Bytes vermitteln. 
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Die Zeichen werden zeilenweise von oben nach unten im Video-RAM 
abgelegt, so daß der Zeilenanfang der Zeile 0 bei $B000:$0000 beginnt, 
der Zeilenanfang der Zeile 1 bei $BOOO:$OOAO usw. Innerhalb einer Zeile 
werden die Zeichen von links nach rechts gespeichert. Da der Bildschirm 
nur eine Breite von 240 Pixels aufweist, besitzt jedes Zeichen im Gegen¬ 
satz zum PC-Zeichensatz nur eine Breite von 6 Pixels (gegenüber 8 beim 
PC), wodurch die Darstellungsqualität natürlich deutlich vermindert wird. 






Spalte 





Zeile 

00 

01 

02 

03 

76 

77 

78 

79 

0 

$000 

$002 

$004 

$006 .. 

$098 

$09A 

$09C 

$09E 

1 

$0A0 

$0A2 

$0A4 

$0A6 .. 

$138 

$13A 

$13C 

$13E 


2 $140 $142 $144 $146 .. $1D8 $1DA $1DC $1DE 

3 $1E0 $1E2 $1E4 $1E6 .. $278 $27A $27C $27E 



$280 $282 $ 

5284 $286 .. $318 $31A $31C $31E 



$C80 $C82 $ 

5C84 $C86 .. $D1 

8 $D1A $D1C $D1E 


21 $D20 $D22 $D24 $D26 .. $DB8 $DBA $DBC $DBE 

22 $DC0 $DC2 $DC4 $DC6 .. $E58 $E5A $E5C $E5E 

23 $E60 $E62 $E64 $E66 .. $EF8 $EFA $EFC $EFE 

24 $F00 $F02 $F04 $F06 .. $F98 $F9A $F9C $F9E 


Bild 1.3: Aufbau des MDA-kompatiblen Video-RAM 

Da der Portfolio-Bildschirm jedoch nur eine Auflösung von 40x8 Zeichen 
aufweist, wird dieser einfach als Fenster innerhalb des 80x25-Bildschirms 
angesehen. Durch Scrollen mit den Cursortasten in Verbindung mit der 
I Al t| -Taste kann dieses Fenster dann innerhalb des groben Bildschirms 
bewegt werden. Die jeweilige Position des Fensters (des realen Portfolio- 
Bildschirms) wird durch die sogenannte virtuelle Bildschirmposition 
beschrieben, was nichts anderes heißt, als daß man zwei Koordinaten 
x-virtuell und y-virtuell definiert hat, welche die Position der linken, 
oberen Ecke des Fensters innerhalb des 80x25-Bildschirms festlegen: 
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( 0 , 0 ) 


(0,0) 



Dies ist der 

ATARI PORTFOLIO 


(39,7) 


XV (79,24) 


Bild 1.4: Definition 
des Portfolio- 
Bildschirms als 
Fenster 


Der Portfolio besitzt zwei Funktionen des erweiterten BlOS-Interrupt $61, 
mit denen man die Fensterposition beeinflussen kann: Die Funktion $10 
setzt es an eine absolute Position, wobei im AL-Register der Wert 1, im 
DH-Register die Zeile und im DL-Register die Spalte übergeben werden 
müssen. Man muß beachten, daß nur Zeilenwerte bis 17 (17+8=25) und 
Spalten werte bis 40 (40+40=80) zulässig sind. Mit derselben Funktion 
kann man die Position auch ermitteln, indem man im AL-Register den 
Wert 0 übergibt. Die Zeilen- und Spaltennummem werden in den Regi¬ 
stern DH und DL zurückgeliefert. 

Beispiel: 

AH = $10, AL = $01, DH = $05, DL = $20, Aufruf Int $61 
Das Fenster wird so gesetzt, daß seine linke obere Ecke an den Koor¬ 
dinaten (x=$20,y=$01) des 80*25-Bildschirms zu finden ist. 

Durch die Interrupt-Funktion $11 kann man das Fenster relativ zu seiner 
aktuellen Position bewegen. Hierfür wird im DL-Register die Bewegungs¬ 
richtung festgelegt: 

1: Bewegung nach oben 
2: Bewegung nach unten 
3: Bewegung nach links 
4: Bewegung nach rechts 

Im AL-Register wird die Anzahl der Zeilen (wenn DL = 0 oder DL =1) bzw. 
Spalten (wenn DL = 2 oder DL =3) übergeben, um die das Fenster bewegt 
werden soll. 
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Beispiel: 

AH = $11, AL = $05, DL = $04, Aufruf INT $61 
Das Fenster wird um 5 Spalten nach rechts bewegt. 

Innerhalb des Textmodus kann zwischen drei Betriebsarten gewählt 
werden: Zum einen ist da der statische 80*25-Modus. Hier bleibt die 
Fensterposition immer an einer Position, wenn sie nicht durch die obigen 
beiden Interrupt-Funktionen (oder durch die Tastatur mit [AltI plus 
Cursortaste) verändert wird. Die Bildschirmausgaben werden jedoch auf 
die Größe des Gesamtbildschirms (80*25) bezogen, so daß alle Ausgaben 
außerhalb des Fensters für den Benutzer unsichtbar bleiben. Er muß 
selbst dafür sorgen, daß das Fenster an die Position verschoben wird, an 
der sich für ihn interessante Bildschirmausgaben befinden. 

Dagegen wird bei dem dynamischen Modus das Fenster automatisch mit 
den Bildschirmausgaben mitbewegt (genauer gesagt: Es folgt dem Cursor), 
so daß man anschließend auf jeden Fall immer den letzten Teil der Aus¬ 
gabe im Fenster sichtbar hat. Der Sinn dieses Modus besteht darin, daß 
der Anwender die Texte während der Ausgabe mitlesen kann. Leider 
geschieht dies aber meistens so schnell, daß man in der Praxis keine Mög¬ 
lichkeit hat, mitzulesen und anschließend wie im statischen Modus das 
Fenster »per Hand« bewegen muß, um den gesamten Ausgabetext lesen zu 
können. 

Der 40x8-Modus schließlich ist ein echter Portfolio-Modus und speziell 
nur für den Portfolio entwickelte Programme brauchbar. Hierbei wird der 
physikalische Bildschirm auf die tatsächlich sichtbaren 40x8 Zeichen 
reduziert, so daß eine Bildschirmausgabe nach jeweils 40 Zeichen eine 
neue Zeile beginnt. Da der 80x25-Bildschirm nicht mehr existiert, kann 
das Fenster, welches in diesem Modus eigentlich kein Fenster mehr ist, 
natürlich auch nicht mehr bewegt werden, weder durch die Interrupts 
noch durch die Cursortasten. Nach jweils 8 Zeilen wird der Bildschirm um 
eine Zeile nach oben gerollt, was in den anderen zwei Modi erst nach 25 
Zeilen der Fall ist. Die zulässigen Spalten- und Zeilenangaben z.B. für die 
Positionierung des Cursors sind ebenfalls auf die Werte 0-7 (Zeile) und 
0-39 (Spalte) reduziert. Dieser Modus sollte von allen spezifischen Port¬ 
folio-Programmen benutzt werden, um das lästige Rollen des Fensters zu 
vermeiden. 

Auch für das Setzen/Auslesen der Betriebsarten stellt der Interrupt $61 
eine Funktion ($0E) bereit. Um die neue Betriebsart zu setzen, muß im 
AL-Register der Wert 1 und im DL-Register das zugehörige Byte nach fol¬ 
gender Tabelle übergeben werden: 
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DL = 0: Statischer Modus (80x25 Zeichen, realer Bildschirm stellt 40x8- 
Fenster dar) 

DL = 1: Portfolio-Modus (40x8 Zeichen) 

DL = 2: Dynamischer Modus (80x25, realer Bildschirm stellt 40x8-Fenster 
dar) 

(DL = 128: Grafikmodus, hier nicht interessant) 

Der Interrupt gibt im DL-Register den alten Betriebsmodus zurück. Falls 
im AL-Register der Wert 0 übergeben wird, wird kein neuer Modus gesetzt, 
sondern der aktuelle im DL-Register zurückgeliefert. 

Beispiel: 

AH = $0E, AL = $01, DL = $02, Aufruf INT $61 
Der dynamische Bildschirm-Modus wird aktiviert. 

Ich möchte Sie nun mit einem weiteren, nicht unerheblichen Problem bei 
der Bildschirmprogrammierung des Portfolio konfrontieren, dem Screen- 
Refresh. Zunächst muß man sich klarmachen, daß das Video-RAM nichts 
anderes ist als ein Stück gewöhnlicher Speicher, aus dem der Video- 
Controller seine Informationen ausliest. Wenn man nun irgendwelche 
Informationen in das Video-RAM schreibt, ist es noch längst nicht selbst¬ 
verständlich, daß diese sofort auf dem Bildschirm erscheinen. Hierzu ist 
ein Refresh erforderlich, d.h., der Video-Controller aktualisiert den Bild¬ 
schirminhalt nach den neuesten Informationen, die er aus dem Video- 
RAM erhält. Beim PC muß man sich keine Sorgen um den Refresh 
machen, da dieser automatisch regelmäßig durchgeführt wird. Nicht so 
beim Portfolio: Wenn Sie hier direkt in das Video-RAM hineinschreiben, 
müssen Sie dem LCD-Controller explizit mitteilen, daß er doch bitte den 
Bildschirm »refreshen« möchte, damit Ihre Informationen auch auf ihm 
erscheinen. Normalerweise geht dies nur durch direkte Hardware- 
Programmierung des LCD-Controllers, aber auch hier hat DIP eine 
Interrupt-Funktion ($12) implementiert, die den Refresh durchführt. Dabei 
müssen keine Parameter in den Registern übergeben werden: 

AH = $12, Aufruf INT $61: Screen Refresh 

In eigenen Programmen kann man auf diese Tatsache Rücksicht nehmen, 
indem man einfach nach jedem direkten Zugriff auf das Video-RAM diese 
Interrupt-Funktion aufruft. Was aber ist mit PC-Programmen? Nun, diese 
besitzen natürlich keinerlei Befehle zum Bildschirm-Refresh, da dies ja 
automatisch vom Videocontroller der Grafikkarte vorgenommen wird. Auf 
dem Portfolio-Bildschirm wird man deshalb nichts von dem sehen können, 
was das Programm in das Video-RAM hineinschreibt. Auch diese Pro- 
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blematik hat DIP erkannt: Durch eine weitere Funktion ($1F) des Interrupt 
$61 wird es ermöglicht, einen Screen-Refresh automatisch bei Auslösung 
eines NMI (Non-maskable Interrupt, wird durch einen Timer ausgelöst) 
und/oder bei der Betätigung der Tastatur durchführen zu lassen, wobei 
letztere Methode leider einen Haken hat, dazu aber später. 

Wie auch der PC besitzt der Portfolio einen Timer, der regelmäßig einen 
Interrupt ($08) auslöst: Während im PC dieser jedoch 18,2mal in der 
Sekunde aufgerufen wird, ist dies im Portfolio wahlweise einmal in der 
Sekunde oder sogar nur alle 128 Sekunden (hierdurch wird Strom 
gespart!) der Fall. Neben diesem Interrupt kann der Portfolio-Timer aber 
auch noch einen sogenannten NMI auslösen; dies ist ein nichtmaskier¬ 
barer Interrupt, d.h., er kann nicht softwaremäßig unterdrückt werden. 
Durch diesen NMI kann schließlich ein Bildschirm-Refresh erzeugt 
werden. In der Praxis hat es natürlich keinen Sinn, einen Refresh nur alle 
128 Sekunden auszuführen, so daß man zunächst den Timer so pro¬ 
grammieren muß, daß der NMI jede Sekunde ausgelöst wird. Hierbei wird 
zwar erheblich mehr Strom verbraucht, aber schließlich ist es unzumut¬ 
bar, jedesmal über zwei Minuten warten zu müssen, bis die neuen Bild¬ 
schirminformationen sichtbar werden! 

Für den Timer steht die Funktion $1E des erweiterten BlOS-Interrupt $61 
zur Verfügung. Mit ihr kann man die Frequenz neu setzen (Register AL =1) 
oder auch nur auslesen (Register AL =0). Im ersten Fall wird im BX- 
Register die neue Frequenz übergeben: 

BX = 0: Interrupt alle 128 Sekunden 
BX = 1: Interrupt jede Sekunde 

Beim Auslesen wird ein entsprechender Wert im BX-Register zurück¬ 
gegeben. 

Beispiel: 

AH = $1E, AL = $01, BX = 1, Aufruf INT $61 
Der Timer löst jede Sekunde einen Interrupt aus. 

Mit der Interrupt-Funktion $1F kann man nun festlegen, wann ein 
Screen-Refresh ausgelöst werden soll. Dazu wird im DX-Register ein ent¬ 
sprechender Wert übergeben: 

DX = $0000: Kein automatischer Refresh 
DX = $0001: Refresh durch Tastatur 
DX = $0100: Refresh durch Timer 
DX = $0101: Refresh durch Timer und Tastatur 
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Wenn im AL-Register eine 1 übergeben wird, wird der neue Modus gesetzt, 
bei AL = 0 wird der aktuelle Modus im DX-Register zurückgegeben. 

Beispiel: 

AH = $1F,AL = $01, DX = $0100, Aufruf INT $61 

Bei jedem Timer-Interrupt wird ein Screen-Refresh vorgenommen. 

Nun zu dem oben erwähnten Haken mit der Tastatur: Schlauerweise 
wurde die Funktion so eingerichtet, daß der Refresh nicht sofort beim 
Druck einer Taste ausgelöst wird, sondern erst dann, wenn das Zeichen 
über den BlOS-Interrupt $16 ausgelesen wird. Warum ist dies sinnvoll? 
Nun, meistens ist es so, daß ein Programm den Bildschirm beschreibt und 
dann auf den Druck einer Taste wartet. Wenn nun erst das halbe Video- 
RAM vollgeschrieben wurde und eine Taste gedrückt wird, hätte dies einen 
Screen-Refresh zur Folge. Da das Zeichen aber im Tastaturpuffer gespei¬ 
chert wird, kann es sofort ausgelesen werden, wobei kein zweiter Refresh 
ausgelöst würde. Damit hätte man keine Möglichkeit mehr, die zweite 
Hälfte der Bildschirmausgabe sichtbar zu machen. Man sieht also, daß es 
grundsätzlich sinnvoll ist, den Refresh erst dann auszulösen, wenn ein 
Zeichen aus dem Tastaturpuffer ausgelesen wird. Das einzige Problem tritt 
dann auf, wenn das Programm sofort nach diesem Auslesen den Bild¬ 
schirm löscht: Man hat dann keine Chance mehr, den Bildschirminhalt in 
dieser kurzen Zeit zu lesen. Da dieser Fall gar nicht so selten auftritt, 
kann ich Ihnen nur empfehlen, den Refresh durch den Timer (1 Interrupt 
pro Sekunde) ausführen zu lassen, auch wenn Ihr Batteriebedarf in die 
Höhe schnellen wird. Alle anderen Möglichkeiten sind in der Praxis aber 
mehr oder weniger problematisch. Im Haus sollte ohnehin das umwelt¬ 
freundliche Netzgerät zum Einsatz kommen. 

Als letzten Punkt der Bildschirmprogrammierung möchte ich auf die Dar¬ 
stellungsart des Cursors eingehen. Im Gegensatz zu normalen Zeichen 
kann dessen Aussehen nämlich durchaus modifiziert werden. Auch hier¬ 
für existiert eine Funktion ($0F) des Interrupt $61. Insgesamt bestehen 
drei Möglichkeiten: Wird im Register AL eine 1 übergeben, muß im Regi¬ 
ster BL das Aussehen des Cursors übergeben werden: 

BL = 0: Kein Cursor sichtbar 

BL = 1: Cursor wird durch Unterstrich dargestellt 
BL = 2: Cursor wird durch Block dargestellt 

Bei dem Wert 2 im AL-Register wird der Cursor automatisch dem Num- 
Lock-Status angepaßt: Ist kein NumLock aktiviert, wird er als Block dar¬ 
gestellt, bei aktiviertem NumLock hingegen als Unterstrich. In diesem Fall 
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spielt der Inhalt des BL-Registers keine Rolle. Durch den Wert 0 im AL- 
Register schließlich wird der aktuelle Cursormode ermittelt und im 
Register BL zurückgegeben. 

Beispiel: 

AH = $0F, AL = $01, BL= $01, Aufruf INT $61 
Der Cursor wird als Unterstrich dargestellt. 

Zusammenfassend kann man sagen, daß der LCD-Controller doch etwas 
höhere Ansprüche an den Programmierer stellt, als er das vielleicht vom 
PC gewohnt ist. Da alle wesentlichen Funktionen jedoch über den Inter¬ 
rupt $61 abgedeckt sind, dürften eigentlich keine großen Probleme auf- 
treten, obwohl man sich z.B. an die Screen-Refreshs erst gewöhnen muß. 
Massive Probleme können mit PC-Software entstehen, wenn diese ver¬ 
sucht, direkt auf die (im Portfolio nicht vorhandene) Video-Hardware des 
PC zuzugreifen. So führt z.B. eine Benutzung der CRT-Unit von Turbo 
Pascal zum sofortigen Systemabsturz. In Kapitel 2 wird ausführlich auf die 
praktische Bildschirm-Programmierung eingegangen. 

Was noch verbleibt, ist der Grafikmodus, dessen Programmierung gegen¬ 
über dem Textmodus fast als trivial zu bezeichnen ist. Er besitzt nur eine 
Auflösung (240x64 Punkte), wobei Grafikpunkte ganz normal über die 
Funktion $0C des BlOS-Interrupt $10 gesetzt werden können. Welcher 
Farbwert im Register AL für die Zeichenfarbe übergeben wird, ist so ziem¬ 
lich egal, nur der Wert 0 veranlaßt, daß der Punkt in der Hintergrundfarbe 
gesetzt, also gelöscht wird. Ob Sie zum Setzen eines Punktes aber den 
Wert 1 oder 15 übergeben, spielt keine Rolle. Auch zum Auslesen eines 
Pixels kann die hierfür vorgesehende Funktion $0D des Interrupt $10 
verwendet werden. Für die Verfechter der Methode des direkten Beschrei¬ 
bens des Video-RAM sei gesagt, daß der Screen-Refresh (INT $61, Funk¬ 
tion $12) im Grafimodus so lange dauert, daß es sich im Gegensatz zum 
PC beim Portfolio überhaupt nicht lohnt, das Video-RAM direkt zu 
beschreiben. (Es gibt eine interne Funktion, die nur jeweils ein Grafikbyte 
»refresht«, da diese aber nicht dokumentiert ist, sollte man auf sie verzich¬ 
ten, zumal die Geschwindigkeitsvorteile wirklich nur minimal sind.) Was 
sich aber durchaus lohnt, ist das direkte Auszulesen des Video-RAM. 
Diese Funktion wird z.B. von einer Fill -Routine häufig benötigt, wodurch 
sich insgesamt spürbare Vorteile ergeben. Deshalb möchte ich noch kurz 
auf den Aufbau des Video-RAM im Grafikmodus eingehen. 

Wie im Textmodus beginnt es bei $B000:$0000. Die Grafikbytes sind 
zeilenweise von links nach rechts abgespeichert, wobei immer acht Bild¬ 
punkte in einem Byte abgelegt sind (ein Punkt entspricht einem Bit). Falls 
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das entsprechende Bit gesetzt ist, heißt dies, daß der Punkt in der Vorder¬ 
grundfarbe gesetzt wird, bei gelöschtem Bit wird der Punkt unsichtbar in 
der Hintergrundfarbe dargestellt. Pro Zeile werden somit 240/8= 30 
Grafikbyte benötigt. Innerhalb eines Grafikbytes wird der am weitesten 
links liegende Punkt durch das höchstwertige Bit (7) repräsentiert, der am 
weitesten rechts liegende durch das niederwertigste Bit (0). Insgesamt 
werden 240x64/8 = 1920 Byte benötigt. Da der Rest des Video-RAM im 
Grafikmodus unbenutzt bleibt, kann man eigene Daten hineinschreiben, 
wie es in Kapitel 2 praktiziert wird. 
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Bild 1.5: Aufbau des Video-RAM im Grafikmodus 

Als äußerst nachteilhaft muß man die Tatsache ansehen, daß auf das 
Character-ROM (das ist der Baustein, in dem das Aussehen der einzelnen 
Zeichen abgelegt ist) nur vom LCD-Controller, nicht aber vom Prozessor 
zugegriffen werden kann, da es sich nicht in dessen Adreßraum befindet. 
Damit hat nämlich das BIOS keine Möglichkeit, diese Informationen aus¬ 
zulesen, weshalb es auch nicht möglich ist, irgendwelche Zeichen mit Hilfe 
der BIOS-Funktionen (z.B. INT $10, Funktion $0A) im Grafikmodus auf 
dem Bildschirm auszugeben. Beim PC hingegen liegen die Daten der 
ersten 128 ASCII-Codes bereits im ROM bereit (Grund hierfür ist die CGA- 
Karte, die kein eigenes Character-ROM besitzt), die Daten der zweiten 128 
Zeichen können mit Hilfe des DOS-Befehls GRAFTABL in einer Tabelle 
initialisiert werden, deren Anfangsadresse in der Interrupt-Vektor-Tabelle 
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ab der Position $0000:$007C (der Interrupt $1F wird nicht benutzt!) zur 
Verfügung steht. Damit können die BIOS-Funktionen für Zeichen- oder 
Textausgabe diese Daten auslesen und Punkt für Punkt auf den Bild¬ 
schirm übertragen. Dies alles trifft für den Portfolio nicht zu. Die einzige 
Möglichkeit, Grafiken auch beschriften zu können, besteht darin, eine 
eigene Zeichen-Code-Tabelle aufzubauen und deren Daten mit einem 
selbstgeschriebenen Programm Punkt für Punkt auszulesen und darzu¬ 
stellen (siehe hierzu Kapitel 2, Grafikprogrammierung). 

Auch hier gestatten Sie mir eine Schlußbemerkung: Der Portfolio-Grafik¬ 
modus ist inkompatibel zu allen beim PC bekannten Modi. Deshalb ist es 
nicht möglich, irgendein für den PC entwickeltes Grafikprogramm auf dem 
Portfolio ablaufen zu lassen. Hier hilft nur die Devise »Selbst ist der 
Mann/die Frau/der Programmierer«. Leider ist es aus diesem Grund auch 
nicht möglich, ein für den Portfolio konzipiertes Grafikprogramm auf dem 
PC zu testen, da dieser mit dem Video-Modus $0A nichts anfangen kann. 
(Die meisten Rechner stürzen ab, wenn Sie den BlOS-Interrupt $10 mit 
diesem Parameter aufrufen!) Hier bietet sich die Lösung an, die Grafik¬ 
routinen völlig aufrufkompatibel zu entsprechenden PC-Routinen zu 
machen, um dann einfach die Grafikpakete wechseln zu können, ohne an 
dem Programm selbst eine Anweisung umschreiben zu müssen. Es ist 
deshalb auch sinnvoll, alle Portfolio-spezifischen Interrupt-Aufrufe direkt 
vom Grafikpaket und nicht vom Hauptprogramm ausführen zu lassen. 


1.4 Die RAM-Speicherkarten (CCMs) 

Aufgrund seiner geringen Abmessungen konnte in den Portfolio im 
Gegensatz zu »vollwertigen« Laptops weder ein Diskettenlaufwerk noch 
eine Festplatte integriert werden. Da ein Rechner ohne Datenspeicher 
jedoch wertlos ist, spendierten ihm seine Entwickler einen Einschub für 
ein sogenanntes Credit-Card-Memory (CCM), fälschlicherweise oft mit dem 
Ausdruck »Magnetspeicherkarte« bezeichnet. In Wirklichkeit haben diese 
Karten nämlich (im Gegensatz zu Disketten) nichts, aber auch gar nichts 
mit Magnetismus zu tun, es handelt sich schlicht und ergreifend um ein 
ganz normales RAM im Kartenformat, das den Voteil aufweist, batterie¬ 
gepuffert zu sein, weshalb die Informationen auch bei Entfernen der 
Karten aus dem Rechner nicht verlorengehen. Ein CCM ist also eine RAM- 
Disk, wie man sie beim PC z.B. mit dem Gerätetreiber RAMDRTVE.SYS 
einrichten kann. 
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In diesem RAM können nun Programme und Dateien im DOS-Format 
abgelegt werden, wobei ich auf die Dateiverwaltung des DOS gleich zu 
sprechen komme. Aus Abschnitt 1.1 wissen Sie, daß das CCM in den 
Adreßraum des Portfolio eingeblendet werden kann. Ich habe mir daher 
die Frage gestellt, was einen daran hindern kann, ein CCM als ganz nor¬ 
male RAM-Erweiterung für den Hauptspeicher zu benutzen. Die Antwort: 
nichts. Wenn Sie das RAM eingeblendet haben, können Sie die Speicher¬ 
zellen ganz normal wie jedes RAM adressieren und brauchen sich über¬ 
haupt nicht darum zu kümmern, daß diese Dinger ursprünglich als Datei¬ 
speicher vorgesehen waren. Zwar wird der EXEC-Loader kein Programm in 
diesen Bereich ab $C000:$0000 laden können, als Datenspeicher kann 
man ihn aber allemal benutzen, zumal es Hochsprachen wie Turbo Pascal 
möglich machen, Variablen an fest vorgegebenen Adressen anzulegen. 
Obwohl ich auf die Programmierung der Karten als Variablenspeicher erst 
in Kapitel 2 eingehe, möchte ich Ihnen schon einen kleinen Vorgeschmack 
geben. Stellen Sie sich vor. Sie wollen eine Adreßverwaltung program¬ 
mieren, deren Programmcode ca. 90 Kbyte umfaßt. Der Hauptspeicher 
bietet dann nur noch maximal 10 Kbyte Datenspeicher an, wobei die ein¬ 
gebauten Applikationen nicht mehr aufgerufen werden könnten. In Turbo 
Pascal würde man zunächst einen Record definieren, der eine Adresse 
aufnehmen kann: 

TYPE 

adresse = record 
name : String[20]; 
vorname : string[20]; 

Strasse : string [20]; 
plz : word; 

Wohnort : string [15]; 
telefon : word; 
end; 


Dieser Record benötigt 83 Byte, da beim String noch 1 Byte für die 
Längenangabe hinzugerechnet werden muJ3 (21+21+21+2+16+2). Mit 10 
Kbyte Speicher könnten somit 120 Adressen gespeichert werden, was für 
eine so umfangreiche Adreßverwaltung nicht gerade viel ist. Eine Variable 
könnte somit wie folgt initialisiert werden: 

VAR 

Speicher : array[l. .120] of adresse; 

Falls Sie nun z.B. ein 64-Kbyte-CCM besitzen, könnten Sie diesen Spei¬ 
cher voll in Ihr Programm integrieren, indem Sie das Variablenarray durch 
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Angabe einer Absolutadresse zwangsweise in das CCM-RAM verlagern. 
Damit können nicht wie bisher nur 120 Datensätze gespeichert werden, 
sondern deren 65536/83=789, wobei die 10 Kbyte Hauptspeicher noch 
nicht berücksichtigt werden. Durch die Initialisierung eines zweiten Array 
kann die Gesamtzahl der Datensätze auf 789+120=909 gesteigert werden: 

VAR 

speichert : array[l..789] of adresse ABSOLUT $C000:$0000; 
speicher2 : array[1..120] of adresse; 

Durch die Angabe ABSOLUT wird Turbo Pascal angewiesen, die Daten ab 
der Adresse $C000:$0000 abzulegen, also im Adreßbereich des CCM. Sie 
können nun berechtigterweise fragen, was dieser Umstand soll, wo es 
doch eine »normale« RAM-Erweiterung für den Portfolio gibt. Nun, diese 
hat gegenüber den CCMs drei entscheidende Nachteile: 

1. Durch eine RAM-Erweiterung wird der Rechner wesentlich vergrößert, 
so daß von Taschenformat keine Rede mehr sein kann. Ein CCM dagegen 
benötigt keinen zusätzlichen Platz. 

2. Eine RAM-Erweiterung weist einen enormen Strombedarf auf, wo¬ 
durch die Lebensdauer der Batterien wesentlich verkürzt wird. Ein CCM 
benötigt praktisch keinen Strom, der den Portfolio belasten würde. 

3. Die Informationen einer RAM-Erweiterung sind verloren, sobald das 
Programm beendet wird, da innerhalb des Hauptspeichers Programme an 
keine feste Adresse geladen werden. Jegliche Art von Daten müssen somit 
in Dateien abgelegt werden, wofür nur die interne RAM-Disk oder CCMs in 
Frage kommen. Die Daten eines CCM sind jedoch batteriegepuffert und 
liegen an einer festen Adresse, so daß ein Programm jederzeit auf sie zu¬ 
greifen kann, ohne eine Datei ausgelesen haben zu müssen. 

Der einzige Nachteil eines CCM besteht darin, daß ihr RAM nicht als 
Erweiterung für Programmcode benutzt werden kann, der nicht in den 
Hauptspeicher paßt. Da ich aber nicht glaube, daß für den Portfolio jemals 
Programme angeboten werden, deren Code größer als 100 Kbyte ist, kann 
man hier wohl getrost von einem eher theoretischen Nachteil sprechen. 
Auf jeden Fall hoffe ich, Ihnen etwas Appetit auf diese zugegeben 
unkonventionelle Verwendung der CCMs gemacht zu haben. Um ein CCM 
in den Adreßraum des Portfolio einzublenden, kann die Funktion $24 des 
Interrupt $61 benutzt werden. Dazu wird im AL-Register eine 1 übergeben 
(Status setzen, AL = 0 würde aktuellen Status holen), im DL-Register wird 
der neue Status übergeben: 


33 



Kapitel 1- 

DL = 0: Applikations-ROM wird in Adreßraum eingeblendet 
DL = 1: CCM A: wird in Adreßraum eingeblendet 
DL = 2: CCM B: wird in Adreßraum eingeblendet 
DL = 3: Externes ROM wird in Adreßraum eingeblendet 

Im Register DH wird der Status der CCMs übergeben: 

DH = 0: Keine CCMs ansprechbar 
DH = 1: CCM A: ansprechbar 
DH = 2: CCM B: ansprechbar 

Natürlich sind nicht alle Kombinationen von DL und DH sinnvoll. So wäre 
es z.B. nicht möglich, in DL durch die 1 das CCM A: einblenden zu wollen, 
es aber andererseits durch DH = 0 nicht zugänglich zu machen. 

Nach dem Interrupt-Aufruf wird im Cariy-Flag signalisiert, ob die Aktion 
erfolgreich war: Durch ein gelöschtes Flag wird der fehlerlose Ablauf be¬ 
stätigt, während ein gesetztes Flag einen Fehler bzw. einen illegalen Para¬ 
meter in DL und/oder DH anzeigt. 

Beispiel: 

AH = $24, AL = $01, DL = $01, DH = $01, Aufruf INT $61 
Das CCM A: wird in den Adreßraum eingeblendet. 

Bevor man ein CCM einblendet, sollte man überprüfen, ob überhaupt eine 
RAM-Karte eingesteckt ist. Dazu kann die Interrupt-Funktion $0B ver¬ 
wendet werden. Dazu wird im Register AL die Nummer des CCM über¬ 
geben (0= CCM A:, 1= RAM-Disk B:), das gelösche Carry-Flag nach Rück¬ 
kehr aus der Interrupt-Service-Routine signalisiert, daß die Karte einge¬ 
steckt (bei CCM A:) bzw. daß eine RAM-Disk eingerichtet ist (bei CCM B:), 
während bei gesetztem Carry-Flag ein Fehler aufgetreten ist. Der 
Fehlercode entspricht dem des Interrupt $13, der für den DOS-Zugriff auf 
Massenspeicher zuständig ist (s.u.), und wird im Register AH übergeben. 

Beispiel: 

AH = $0B, AL = $00, Aufruf INT $61 
Test, ob RAM-Karte eingelegt wurde. 

Wichtig ist, daß man einen Aufruf der Applikationen verhindert, wenn 
man ein CCM in den Adreßraum eingeblendet hat, da sonst eine Pro¬ 
gramm-Routine zur Ausführung kommt, die im CCM gar nicht vorhanden 
ist. In diesem Fall kann man mit Sicherheit von einem Systemabsturz 
ausgehen. 
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Wie gesagt sind die RAM-Karten eigentlich als Ersatz für fehlende Massen¬ 
speicher gedacht, wofür sie wahrscheinlich auch häufiger benutzt werden 
als für Speichererweiterungen. Die Dateiverwaltung wird von DOS weit¬ 
gehend geräteunabhängig vorgenommen, erst der unmittelbare Zugriff auf 
die Hardware erfolgt durch die einzelnen Gerätetreiber. Man darf sich des¬ 
halb nicht wundem, wenn der Aufbau des CCM aus der Sicht von DOS 
dem einer Diskette entspricht, obwohl man RAM-Speicher nicht mit einer 
Magnetscheibe vergleichen kann. 

Als oberste Ebene sieht DOS das Volume an. Hierbei handelt es sich um 
einen Massenspeicher (oder einen Teil dessen) an sich, der über einen 
Namen (A:, B:, C: etc.) angesprochen wird. Es handelt sich dabei um 
logische Einheiten, bekanntlich kann ja eine Festplatte in mehrere DOS- 
Partitionen unterteilt werden. Jedes Volume enthält eine bestimmte Anzahl 
von Spuren (Tracks), wobei man sich dies bei Disketten am anschaulich¬ 
sten als über die Scheibe verteilte Ringe vorstellen kann, auf die der 
Schreib-Lese-Kopf durch schrittweise Bewegung positioniert werden kann. 
Jeder Track wird nochmals in Sektoren unterteilt, die dann die Daten auf¬ 
nehmen. Der Vorteil dieser Aufsplitterung eines Volume in kleine Ab¬ 
schnitte besteht darin, daß man insbesondere bei Disketten das zur Ver¬ 
fügung stehende Gesamtvolumen wesentlich besser ausnutzen kann als 
dies bei größeren Einheiten, wie z.B. Tracks, der Fall wäre: Stellen Sie sich 
vor, ein Track könnte 10000 Datenbyte aufnehmen. Wenn nun eine Datei 
mit nur 1000 Byte gespeichert würde, könnten die anderen 9000 Byte 
nicht mehr benutzt werden, da ja jeder Track nur eine Anfangsmarkierung 
aufweist. Wäre der Track jedoch z.B. in zehn Sektoren mit jeweils 1000 
Byte unterteilt, könnte das Programm in einem Sektor untergebracht 
werden, während die anderen neun Sektoren noch zur freien Verfügung 
ständen. (Jeder Sektor besitzt eine eigene Anfangsmarkierung auf der 
Diskette!) In der Praxis gehen auf einer Diskette natürlich einige Bytes 
durch die Sektormarkierungen verloren, so daß die obige Rechnung nicht 
ganz aufgeht. 

Bei einer RAM-Disk könnte man auf Tracks und Sektoren natürlich ver¬ 
zichten, da hier lediglich Adressen angesprochen werden und keinerlei Mar¬ 
kierungen (wie sie der Schreib-Lese-Kopf eines Diskettenlaufwerks benötigt) 
erforderlich sind. Um die Verwaltung von DOS übernehmen lassen zu 
können, ist eine Kompatibilität in dieser Richtung aber erforderlich. Selbst¬ 
verständlich könnte man theoretisch ein eigenes Betriebssystem für RAM- 
Disks entwickeln, das mit Sicherheit effektiver und schneller wäre als DOS. 
Dafür könnte es aber auch ausschließlich für RAM-Disks verwendet werden, 
während DOS auch Disketten, Festplatten und CD-ROMs verwalten kann. 
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Das Problem für DOS besteht nun darin, daß sich Zugriffe vom Programm 
aus immer auf Dateien und nicht auf Sektoren beziehen. Die Dateizugriffe 
müssen also über irgendeinen Algorithmus in Sektor-Zugriffe umgewan¬ 
delt werden. Neben den Verzeichnissen existiert hierfür eine sogenannte 
FAT (File-Allocation-Table), in der die von einer Datei benutzten Sektoren 
abgelegt sind. Weiterhin existiert in jedem Volume ein Boot-Sektor, der die 
wesentlichen Informationen über den Massenspeicher (z.B. Anzahl der 
Leseköpfe, der Tracks, Sektoren etc.) enthält und in jedem Fall auf Track 0 
zu finden ist (Sektor-Nummer 0), damit ihn DOS finden und auswerten 
kann. 

Der Name Boot-Sektor ergibt sich daraus, daß beim PC das DOS nicht fest 
im Speicher verankert ist, sondern erst eingeladen (gebootet) werden muß. 
Dafür lädt das BIOS nach seiner eigenen Initialisierung den Boot-Sektor 
der eingelegten System-Diskette bzw. der Festplatte, deren Boot-Routine 
DOS dann einladen kann. Beim Portfolio braucht DOS nicht geladen zu 
werden, weshalb die Boot-Routine der CCMs lediglich eine Fehlermeldung 
ausgibt (s.u.). Im folgenden ist der Aufbau des Boot-Sektors in allgemeiner 
Form dargestellt: 


Aufbau des Boot-Sektors eines Volume 


Nr. 

Adr. 

Inhalt 

Byte 

1 

$00 

JMP-Befehl zur Boot-Routine 

3 

2 

$03 

Herstellername/DOS-Versionsnummer 

8 

3 

$0B 

Bytes pro Sektor 

2 

4 

$00 

Sektoren pro Cluster 

2 

5 

$0E 

Anzahl reservierter Sektoren 

2 

6 

$10 

Anzahl File-Allocation-Tables (FAT) 

1 

7 

$11 

Maximale Einträge im Hauptverzeichnis 

2 

8 

$13 

Anzahl Sektoren im Volume 

2 

9 

$15 

Media-Discriptor 

1 

10 

$16 

Anzahl Sektoren pro FAT 

2 

11 

$18 

Anzahl Sektoren pro Track 

2 

12 

$1A 

Anzahl Schreib-Lese-Köpfe 

2 

13 

$1C 

Entfernung erster Sektor des Volume 




vom ersten Sektor des Massenspeicher 

2 

14 

$1E 

Bootroutine (bis $1 FF) 

482 


Bild 1.6: Aufbau des Bootsektors eines Volume 
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Zunächst zu den Clustern: Grundsätzlich beschreibt DOS nicht direkt 
aufeinanderfolgende Sektoren, sondern immer den nächsten freien Sektor. 
Während bei einem relativ neuen Volume die Dateien auf wenig Tracks 
verteilt sind, wird nach einiger Zeit durch Löschen und Neubeschreiben 
eine Zerstückelung der Dateien über immer mehr Tracks unvermeidlich. 
Dadurch kann es im Extremfall dazu kommen, daß eine Datei auf jedem 
Track nur einen einzigen Sektor belegt. Bei RAM-Disks wäre dies 
unproblematisch, bei Festplatten aber müßte der Lesekopf auf jedem 
Track neu positioniert werden, wodurch eine extreme Verzögerung im 
Datenzugriff entstehen würde. Um hier Abhilfe zu schaffen, faßt DOS eine 
bestimmte Anzahl von direkt aufeinanderfolgenden Sektoren zu den soge¬ 
nannten Clustern zusammen, die nun ihrerseits die kleinste mögliche 
Einheit in dem Volume bilden. Eine Datei, die z.B. 20 Sektoren belegt 
hätte, würde bei einer Zusammenfassung von jeweils vier Sektoren zu 
einem Cluster also fünf Cluster belegen, wodurch statt 20 nur noch 
maximal fünf Positionierungen des Lesekopfs notwendig wären. Es können 
immer nur Sektor-Zahlen zu einem Cluster zusammengefaßt werden, die 
eine Potenz von 2 bilden, also 1, 2, 4, 8, 16 usw. Leider wird durch dieses 
Verfahren der Anteil des brachliegenden Speichers aber drastisch erhöht: 
Würde ein Sektor z.B. 256 Byte enthalten und ein Programm mit 250 Byte 
abgespeichert, würden bei einzelnem Sektorzugriff nur 6 Byte verschwen¬ 
det, während durch die Zusammenfassung von vier Sektoren zu einem 
Cluster auch die drei übrigen Sektoren des Clusters durch andere Dateien 
nicht mehr benutzt werden können, so daß 3x256+6=774 Byte unbenutzt 
sind. Bei Festplatten kann wie gesagt aufgrund der erforderlichen Geschwin¬ 
digkeit auf die Zusammenfassung mehrerer Sektoren nicht verzichtet 
werden, zumal diese Massenspeicher so dimensioniert sind, daß es auf 
das eine oder andere verlorene Byte nicht ankommt. Anders sieht es z.B. 
bei den Disketten aus: Hier wird aufgrund der geringen Speicherkapazität 
keine Zusammenfassung vorgenommen (ein Sektor pro Cluster), wobei 
man sich überlegt hat, daß Disketten meistens nur zum Datentransfer 
benutzt werden, wobei es mehr auf das Fassungsvermögen als auf die 
Geschwindigkeit ankommt. Bei einer RAM-Disk schließlich spielt es natür¬ 
lich überhaupt keine Rolle, auf welchen Sektor zugeriffen wird. Da keine 
mechanische Bewegung eines Lesekopfes notwendig ist, wird (natürlich) 
nur 1 Sektor pro Cluster verwendet. Man sieht, wie flexibel DOS mit dieser 
Methode ist: Optimierung der Zugriffszeit (Festplatte) oder der Speicher¬ 
ausnutzung (Diskette, RAM-Disk) mit ein und demselben Verfahren! 

Mit den reservierten Sektoren sind der Boot-Sektor sowie eventuell weitere 
Sektoren gemeint, die für die Speicherung der Dateien nicht zur Ver- 


37 



Kapitell _ 

fügung stehen. Im Normalfall ist nur der Boot-Sektor reserviert, falls sich 
aber z.B. die Boot-Routine noch über weitere Sektoren erstreckt, müssen 
auch diese als reserviert gekennzeichnet werden, damit sie von DOS nicht 
mit Daten überschrieben werden. 

Nun zu der FAT-Anzahl. Wie schon oben erwähnt, dient die FAT dazu, 
DOS mitzuteilen, auf welchen Clustern welche Dateien gespeichert sind. 
Wenn die FAT aus irgendeinem Grund zerstört wird, hat man daher keine 
Chance mehr, auf irgendwelche Dateien zuzugreifen, der gesamte Volume¬ 
inhalt ist verloren. DOS als Profi-Betriebssystem bietet deshalb die Mög¬ 
lichkeit, Kopien der FAT anzulegen, die zwar Speicherplatz kosten, der für 
Daten nicht mehr zur Verfügung steht, dafür aber die Daten-Sicherheit 
wesentlich erhöhen. 

Beim Media-Descriptor handelt es sich um einen Eintrag, der das Gerät 
angibt, mit dem das Speichermedium (z.B. Diskette) verarbeitet werden 
kann. Dabei sind beim PC folgende Einträge möglich: 


Media-Descriptor bei Speichermedien 


Medium 

Seiten 

Größe Tracks 

Sek/Track 

M-D 

Kbyte 

Diskette 

2 

m so 

18 

$F0 

1440 

Harddisk 

? 

?? ?? 

?? 

$F8 

???? 

Diskette 

2 

5 80 

15 

$F9 

1200 

Diskette 

2 

314 80 

9 

$F9 

720 

Diskette 

1 

5 40 

9 

$FC 

180 

Diskette 

2 

5 40 

9 

$FD 

360 

Diskette 

1 

5 40 

8 

SFE 

160 

Diskette 

2 

5 40 

8 

$FF 

320 


Bild 1.7: Media-Descriptor bei diversen Speichermedien 

Da ein Massenspeicher in mehrere Volumes unterteilt werden kann 
(Festplatte), ist es nicht zwingend, daß der erste Sektor des Volume auch 
der erste Sektor des Massenspeichers ist. (Dies ist nur beim ersten Volume 
des Massenspeichers der Fall!) Der Abstand des ersten Sektors ist deshalb 
im Boot-Sektor ab der Adresse $1C vermerkt. 

Nach dieser allgemeinen Einführung möchte ich Ihnen nun die spezi¬ 
fischen Einträge des DIP-DOS in die Boot-Sektoren der CCMs vorstellen: 
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Nr. 


32 Kbyte 


64 Kbyte 


128 Kbyte 


1 

2 

3 

4 

5 

6 

7 

8 

9 

10 
11 
12 

13 

14 


JMPS0024 
DIP 2.0 
128 
1 
1 
1 

32 

256 

255 

3 

8 

2 

0 

ab $0024 siehe unten 


JMP $0024 
DIP 2.0 
256 
1 
1 
1 

64 

256 

255 

2 

8 

2 

0 


JMP$0024 
DIP 2.0 
512 
1 
1 
1 

128 

256 

255 

1 

8 

2 

0 


Bild 1.8: Belegung des Bootsektors bei CCMs 

Man sieht, daß DIP den einfachen Weg gegangen ist, die unterschiedlichen 
Speichergrößen über unterschiedliche Sektorgrößen zu realisieren, damit 
die Anzahl der Sektoren und damit die der FAT-Einträge konstant bleibt. 
Durch die kleine Sektorgröße bedingt kann der paradoxe Fall auftreten, 
daß auf der 32-Kbyte-Karte genauso viele Dateien gespeichert werden kön¬ 
nen wie auf der 128-Kbyte-Karte, nämlich dann, wenn die Dateien weniger 
als 128 Byte umfassen. Optimaler wäre der Fall gewesen, wenn bei der 
64-Kbyte- und 128-Kbyte-Karte die Sektorgröße ebenfalls 128 Byte 
betragen hätte und dafür die Anzahl der Sektoren gegenüber der 
32-Kbyte-Karte verdoppelt bzw. vervierfacht worden wäre, weil dann eine 
bessere Ausnutzung des RAM gegeben gewesen wäre. An Hand des Media- 
Descriptors erkennt man, daß DOS die CCMs wie 320-Kbyte-Disketten 
verwaltet, wobei die Tracknummern allerdings nur von 0 bis 15 (auf jeder 
»Seite« 16 Tracks ergibt insgesamt 32 Tracks) und die Sektomummem von 
1 bis 8 laufen. Die Anzahl der »Seiten« darf man natürlich nicht so ernst 
nehmen, sie werden jedoch zur Berechnung des Track benötigt (Track= 
Seitexi6+Tracknummer). Die Pseudo-Boot-Routine (der Portfolio wird über 
das ROM gebootet!) sieht bei allen drei Karten wie folgt aus: 
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B80700 

MOV AX,0007 

;Textmodus einschalten 

CD10 

INT 10 


B80113 

MOV AX,1301 

;Zeichenkette ausgeben 

BB0700 

MOV BX,0007 

;Bildschirmseite 0 

33D2 

X0R DX,DX 

;Zeile=Spalte=0 setzen 

0E 

PUSH CS 

;Segmentadresse = Codesegment 

07 

POP ES 


BD4300 

MOV BP,0043 

;0ffsetadresse 

90 

N0P 


B93900 

MOV CX,0039 

;Anzahl der auszugebenen Zeichen 

90 

N0P 


CD10 

INT 10 

;INT $10, Funktion $13 aufrufen 

B400 

MOV AH,00 


CD16 

INT 16 

;Auf Tastendruck warten 

CD19 

INT 19 

;Rechner booten 


0043 4E 6F 6E 2D 53 79 73 74 65 6D 20 64 69 73 6B 20 
0053 6F 72 20 64 69 73 6B 20 65 72 72 6F 72 2E 0D OA 
0063 52 65 70 6C 61 63 65 20 61 6E 64 20 70 72 65 73 
0073 73 20 61 6E 79 20 6B 65 79 00 00 00 00 00 00 00 


Non-System disk 
or disk error 
Replace and press 
any key 


Wenn Sie ein CCM einschieben und die Tasten |Alt| + |strg| + |Entf I drücken, 
sehen Sie, daß diese Boot-Routine nicht durchlaufen wird. Zwar gibt es 
eine Möglichkeit, über ein CCM in den Boot-Vorgang einzugreifen, dazu 
muß der Boot-Sektor jedoch ein ganz bestimmtes Format aufweisen. 
Nachdem der Boot-Sektor besprochen wurde, können wir uns dem Aufbau 
der FAT zuwenden. 

Die FAT beginnt direkt hinter dem letzten reservierten Sektor, wobei bei 
mehreren vorhandenen FATs die Kopien ihrerseits direkt an die Original- 
FAT anschließen. Jeder FAT-Eintrag belegt 12 Bit, so daß jeweils zwei 
Einträge 3 Byte in Anspruch nehmen. In der MS-DOS-Version 3 werden 
übrigens 16 Bit pro Eintrag reserviert, wenn mehr als 4096 Cluster vor¬ 
handen sind, was nicht verwunderlich ist, da man mit 12 Bit gerade 
2 12 =4096 Zahlen darstellen kann. Um die FAT-Einträge richtig interpre¬ 
tieren zu können, liest DOS zunächst die Gesamtanzahl der Sektoren aus 
dem Boot-Sektor aus und teilt diese durch die Anzahl der Sektoren pro 
Cluster. Die sich ergebende Cluster-Zahl bestimmt, ob in der FAT 12 oder 
16 Bit pro Eintrag verwendet werden. 

Beim Portfolio interessiert dies allerdings nicht, da das DIP-DOS kompa¬ 
tibel zu MS-DOS Version 2 ist, so daß in jedem Fall 12 Bit verwendet 
werden (eigentlich bräuchte man nur 8 Bit, da nur 256 Sektoren existie¬ 
ren). Die ersten beiden FAT-Einträge sind reserviert, wobei nur ein Byte 
benutzt wird, nämlich das erste, das eine Kopie des Media-Descriptors 
enthält. Die übrigen 2 Byte enthalten Füllwerte ($FF). Um zu verstehen, 
wie die FAT genau funktioniert, muß man wissen, daß in jedem 
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Verzeichnis-Eintrag die Cluster-Nummer des ersten Datenblocks der Datei 
gespeichert ist. In der FAT findet sich die zu einem Cluster korrespon¬ 
dierende Bitposition, indem man die Cluster-Nummer mit 12 multipliziert. 
Da die ersten beiden Einträge reserviert sind, beginnt DOS daher mit der 
Cluster-Nummer 2, die Nummern 0 und 1 werden nicht benutzt. Der FAT- 
Eintrag bietet nun weitere Informationen: Er kann im Normalfall entweder 
die Cluster-Nummer des nächsten Datenblocks der Datei beinhalten, so 
daß sich an Hand der Einträge eine Kette der benutzten Cluster ergibt 
oder eine Endemarkierung, die anzeigt, daß der entsprechende Cluster 
von der Datei zwar belegt wird, jedoch keine weiteren Cluster mehr folgen. 
Damit hat DOS mit der FAT zwei Fliegen mit einer Klappe geschlagen: 
Zum einen kann es feststellen, ob der entsprechende Cluster überhaupt 
belegt ist, zum anderen kann es aus seinem Inhalt unmittelbar auf den 
folgenden schließen. Diese Methode ist wesentlich effektiver als ein 
anderes gebräuchliches Verfahren, bei dem der Folgesektor innerhalb der 
eigentlichen Datenblöcke abgelegt ist und der Block nur durch 1 Bit 
gekennzeichnet wird (l=Block belegt, 0=Block ist unbelegt). Insgesamt 
kann ein Cluster folgende Einträge aufweisen: 


Eintrag 

Bedeutung 

sooo 

Cluster ist unbelegt 

$FF0 - $FF6 

Cluster ist reserviert 

$FF7 

Cluster ist zerstört (unbelegbar) 

SFF8-SFFF 

Letzter Cluster einer Datei 

$??? 

Folge-Cluster einer Datei 


Bild 1.9: Mögliche Cluster-Einträge in FAT 

Bevor ich Ihnen an Hand eines konkreten Beispiels die Belegung der FAT 
demonstriere, möchte ich noch auf den Aufbau des Hauptverzeichnisses 
eingehen, das direkt an die letzte Kopie der FAT anschliebt (soweit eine 
oder mehrere Kopien vorhanden sind). Die maximale Anzahl von Einträgen 
ist aus dem Boot-Sektor ersichtlich, jeder Eintrag belegt 32 Byte: 
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Aufbau eines Verzeichnis-Eintrags 


Nr. 

Adr. 

Inhalt 

1 

$00 

Dateiname (mit Leerzeichen gefüllt) 

2 

$08 

Extension (mit Leerzeichen gefüllt) 

3 

$0B 

Attribut-Byte 

4 

$oc 

Interne Verwendung 

5 

$16 

Uhrzeit der letzten Veränderung 

6 

$18 

Datum der letzten Veränderung 

7 

$1A 

Erster Cluster der Datei 

8 

$1C 

Dateigröße in Byte 


Bild 1.10: Aufbau eines Verzeichnis-Eintrags 

Der Dateiname sowie die Dateierweiterung (Extension) werden bei nicht 
voller Belegung der zulässigen Länge mit Leerzeichen aufgefüllt, der Punkt 
zwischen Dateiname und Extension wird nicht mit abgespeichert. Falls 
eine Datei gelöscht wird, wird einfach das erste Zeichen des Dateinamens 
auf den Wert $E5 gesetzt. Was aber passiert, falls eine Datei genau mit 
diesem ASCII-Code beginnt? Nun, in diesem Fall wird der erste Zeichen¬ 
code zu einer $05 umgewandelt (das dem Code $05 entsprechende 
Zeichen wird nach Ansicht der DOS-Entwickler nicht für Dateinamen ver¬ 
wendet), was DOS dann als $E5 interpretiert. Man hätte die Sache auch 
einfacher haben können, indem man die $05 gleich als Kennzeichnung für 
eine gelöschte Datei verwendet hätte. Eine $00 signalisiert schließlich, daß 
keine weiteren Einträge im Verzeichnis folgen. 

Im Attribut-Byte werden bestimmte Eigenschaften des Eintrags abgelegt: 

Bit 0 gesetzt: Datei darf nicht beschrieben werden (Read-Only) 

Bit 1 gesetzt: Versteckte Datei (Hidden) 

Bit 2 gesetzt: Datei ist System-Datei 
Bit 3 gesetzt: Eintrag ist Volume-Name 
Bit 4 gesetzt: Eintrag ist Unterverzeichnis 
Bit 5 gesetzt: Archivierungsbit 
Bit 6-7: Unbenutzt 

Durch Kombination von gesetzten Bits können die Dateien auch mehrere 
der aufgeführten Eigenschaften besitzen. Falls beim Formatieren eines 
Volume ein Name angegeben wird, wird Bit 3 gesetzt, so daß dieser Name 
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bei DOS-Befehlen wie DIR, VOL etc. angezeigt wird. Die anderen Bytes 
dieses Eintrags sind dann unwesentlich. Durch ein gesetztes viertes Bit 
wird signalisiert, daß es sich um ein Unterverzeichnis handelt. 

Für ein Unterverzeichnis wird ein ganz normaler Cluster reserviert, indem 
die Einträge in der gleichen Weise vorgenommen werden wie im Haupt¬ 
verzeichnis. Im Eintrag des Hauptverzeichnisses werden die folgenden 
Informationen vermerkt: Der Name des Unterverzeichnisses im Datei¬ 
namen- und Extension-Feld, die Cluster-Nummer des ersten reservierten 
Clusters für das Unterverzeichnis sowie Datum und Uhrzeit seiner 
Erstellung. Das Dateilängen-Byte besitzt den Wert 0. Der zu dem Unter¬ 
verzeichnis-Cluster korrespondierende FAT-Eintrag enthält die Nummer 
des Folge-Clusters, falls ein Cluster nicht für alle Einträge des Unter¬ 
verzeichnisses ausreicht. Man kann also sagen, daß ein Unterverzeichnis 
wie eine normale Datei organisiert ist. Im Gegensatz dazu steht das 
Hauptverzeichnis, dessen Cluster logisch aufeinanderfolgen und dessen 
Größe durch die maximal zulässige Anzahl der Einträge begrenzt ist. Ein 
Unterverzeichnis kann dagegen theoretisch beliebig viele Einträge enthal¬ 
ten, wenn genug Cluster zur Verfügung stehen. Bei der Einrichtung eines 
Unterverzeichnisses werden gleich die zwei bekannten Dateien ».« und »..« 
angelegt, die nicht einzeln gelöscht werden können und erst bei der 
Löschung des gesamten Unterverzeichnisses entfernt werden. Die Datei ».« 
deutet dabei auf das aktuelle Unterverzeichnis, enthält also die gleiche 
Cluster-Nummer wie der Eintrag des Unterverzeichnisses im übergeord- 
neteten Verzeichnis. Die Datei »..« hingegen deutet auf die Cluster-Num¬ 
mer des übergeordneten Verzeichnisses, so daß DOS den Weg des Abstiegs 
zurückverfolgen kann. Falls das übergeordnete Verzeichnis das Haupt¬ 
verzeichnis ist, enthält das Cluster-Feld den Wert 0. 

Das Archivierungsbit wird bei jedem Schreibzugriff auf eine Datei gesetzt. 
Falls nun ein Daten-Sicherungsprogramm (z.B. BACKUP) das ent¬ 
sprechende Volume abarbeitet, setzt es das Archivierungsbit auf 0. Bei 
einem erneuten Durchlauf kann es nun feststellen, ob die Datei seit dem 
letzten Durchlauf modifiziert wurde: Steht das Archivierungsbit immer 
noch auf Null, heißt dies, daß seitdem kein Schreibzugriff erfolgte und 
somit auch keine Veränderung vorgenommen wurde. Die Datei kann somit 
bei der Sicherung ignoriert werden. Falls das Bit aber zwischenzeitlich 
gesetzt wurde, kann eine Veränderung stattgefunden haben, so daß die 
Datei erneut abgearbeitet und das Archivierungsbit auf Null gesetzt 
werden muß. 
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Im Datums- und Zeitfeld wird der Zeitpunkt der letzten Änderung 
(Schreibzugriff) der Datei festgehalten. Das Datum ist dabei wie folgt 
abgelegt: 

Bits 0-4: Tag (1-31) 

Bits 5-8: Monat (1-12) 

Bits 9-15: Jahr (relativ zu 1980) 

Da für das Jahr 7 Bit zur Verfügung stehen, kann DOS Dateien bis ins 
Jahr 1980+2 7 -l=2107 verwalten. Die Zeit ist im folgenden Format 
gespeichert: 

Bits 0-4: Sekunde (in Zweierschritten) 

Bits 5-10: Minute (0-59) 

Bits 11-15: Stunde (0-23) 

Das Cluster-Feld enthält - wie schon oben beschrieben - die Nummer des 
Clusters, der die ersten Daten der Datei enthält. Der zugehörige FAT- 
Eintrag gibt den Folge-Cluster an usw. Sicherlich haben Sie sich gefragt, 
wie DOS vorgeht, wenn eine Datei erweitert bzw. eine neue Datei angelegt 
wird. Nun, die FAT wird in der DOS-Version 2 von vorne nach freien 
Clustern durchsucht, die dann reserviert werden. (In der Version 3 wird 
übrigens ein anderes Verfahren verwendet, das den Zweck hat, neue 
Cluster möglichst in der Nähe von schon benutzten Clustern zu reser¬ 
vieren.) Bei einer Dateierweiterung wird dann in den FAT-Eintrag des bis¬ 
her letzten Clusters die Nummer des ersten neu reservierten Clusters ein¬ 
getragen, die Endemarkierung erhält den Eintrag des letzten neu reser¬ 
vierten Clusters. Beim Löschen einer Datei werden die belegten Cluster 
wieder freigegeben, indem die zugehörigen FAT-Einträge mit Nullen gefüllt 
werden. 

Als letzten theoretischen Gesichtspunkt möchte ich nun darauf zu 
sprechen kommen, wie man aus der Cluster-Nummer die des zugehörigen 
physikalischen Sektors berechnen kann. Nun, zunächst muß der Anfang 
des Datenbereichs bestimmt werden: Bei den CCMs existiert ein Boot- 
Sektor und je nach Kartengröße ein, zwei oder drei Sektoren für die FAT. 
Jeweils acht weitere Sektoren werden für das Hauptverzeichnis belegt, so 
daß insgesamt zwölf (32 Kbyte), elf (64 Kbyte) oder zehn (128 Kbyte) Sek¬ 
toren von dem eigentlichen Datenbereich abgezogen werden müssen. 
Damit entspricht dem Beginn des Clusters 2 (Cluster 0 und 1 sind ja 
reserviert) der Sektor 12, 11 bzw. 10. Da jedem Cluster nur ein Sektor 
zugeordnet ist, kann man die folgenden Sektoren einfach berechnen, 
indem man sie zu diesen Basiszahlen addiert und 2 abzieht; so hat man 
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z.B. für den Cluster 5 bei einer 32-Kbyte-Karte die Rechnung 12+5-2 =15 
auszuführen. 

Als Beispiel für diese ganze Theorie möchte ich Ihnen nun an Hand einer 
32-Kbyte-Karte den Aufbau erläutern. Dafür wurde ein Unterverzeichnis 
mit dem Namen SUBDIR angelegt, das eine Datei BACKUP.EXE enthält. 
Neben dem Unterverzeichnis enthält das Hauptverzeichnis noch eine 
weitere Datei PORTCAPT.EXE. Sehen wir uns zunächst das Haupt¬ 
verzeichnis an, das ab Sektor 4 zu finden ist: 


0000 

54 

45 

53 

54 

44 

49 

53 

4B-20 20 20 28 00 00 

00 

00 

TESTDISK 

0010 

00 

00 

00 

00 

00 

00 

1A 85-25 

00 

00 

00 

00 

00 

00 

00 


0020 

53 

55 

42 

44 

49 

52 

20 

20-20 

20 

20 

10 

00 

00 

00 

00 

SUBDIR 

0030 

00 

00 

00 00 00 

00 

24 

85-25 

00 

02 

00 

00 

00 

00 

00 


0040 

50 

4F 

52 

54 

43 

41 

50 

54-45 

58 

45 

20 

00 

00 

00 

00 

P0RTCAPTEXE 

0050 

00 

00 

00 

00 

00 

00 

68 

9A-FB 

14 

03 

00 

60 

1B 

00 

00 


0060 

00 

00 

00 

00 

00 

00 

00 

00-00 

00 

00 

00 

00 

00 

00 

00 



Als ersten Eintrag findet man die Volume- Bezeichnung. Nach dem Namen 
(11 Zeichen) folgt das Attribut-Byte, wo das Archivierungsbit (5) und das 
Volume -Bit (3) gesetzt sind (2 5 +2 3 =32+8=40=$28). Als Uhrzeit werden die 
Bytes $1A85 angegeben. Da zuerst das Low- und dann das High-Byte 
abgespeichert wird, muJ3 man den Wert in $851A umdrehen. In ein Bit¬ 
muster übersetzt sieht es dann so aus: 

10000 101000 11010 

Damit erhält man die Stunde (10000 = 16), die Minute (101000 = 40) so¬ 
wie die Sekunde (11010*2 = 28*2 = 56). Die Uhrzeit bei der Formatierung 
war also 16:40:56. Als nächstes folgt das Datum. Der Wert $2500 muß 
wieder in $0025 umgedreht werden und sieht im Bitmuster wie folgt aus: 

0000000 0001 00101 

Man erhält als Jahr 1980 (%0000000+1980), als Monat Januar (0001) 
und als Tag den 5. (00101), so daß der Formatierungstag mit dem 
5.1.1980 angegeben werden kann. Die weiteren Bytes in dem ersten Ein¬ 
trag sind Null, da sie nicht benötigt werden. 

Als nächsten Eintrag haben wir ein Unterverzeichnis mit dem Namen 
SUBDIR. Man erkennt dies daran, daß Bit 4 des Attribut-Byte gesetzt ist 
($10). Die Darstellung des Datums und der Uhrzeit ist jetzt klar, so daß 
das Augenmerk dem Cluster-Byte gilt: Der Wert 2 besagt, daß das Unter¬ 
verzeichnis unmittelbar an das Hauptverzeichnis anschließt, auf der 32- 
Kbyte-Karte also ab dem Sektor 12 folgt. 


45 



Kapitel 1 


Als letzten Eintrag haben wir eine Datei PORTCAPT.EXE (der Punkt wird 
nicht mit abgespeichert), die ab Cluster 3 (Sektor 13 auf der 32-Kbyte- 
Karte) zu finden ist und deren Dateigröße sich wie folgt berechnet: Das 
niederwertige Wort enthält die Bytes $60 und $1B, wobei das Low-Byte an 
erster Stelle kommt. Das höherwertige Wort folgt darauf (Wert: Null). 
Damit ergibt sich die Gesamtlänge der Datei zu $lB*256+$60 = 7008 
Byte. 

Um das Unterverzeichnis zu untersuchen, sehen wir uns Sektor 12 an: 


6000:0000 

2E 

6000:0010 

00 

6000:0020 

2E 

6000:0030 

00 

6000:0040 

42 

6000:0050 

00 

6000:0060 

00 


20 20 20 20 20 
00 00 00 00 00 
2E 20 20 20 20 
00 00 00 00 00 
41 43 4B 55 50 
00 00 00 00 00 
00 00 00 00 00 


20 20-20 20 20 
24 85-25 00 02 
20 20-20 20 20 
24 85-25 00 00 
20 20-45 58 45 
87 9C-FA 14 3A 
00 00-00 00 00 


10 00 00 00 00 
00 00 00 00 00 
10 00 00 00 00 
00 00 00 00 00 
20 00 00 00 00 
00 E0 IE 00 00 
00 00 00 00 00 


BACKUP EXE 


Als ersten Eintrag erkennt man die Datei».«. An dem Cluster-Byte erkennt 
man, daß es tatsächlich auf das Unterverzeichnis selbst zeigt, denn auch 
im Hauptverzeichnis gab es eine 2 zu lesen (s.o.). Die Datei »..« hingegen 
enthält im Cluster-Byte eine Null, woraus man schließen kann, daß das 
übergeordnete Verzeichnis (auch Vaterverzeichnis genannt) das Haupt¬ 
verzeichnis ist. Schließlich existiert noch eine Datei BACKUP.EXE, deren 
erster Cluster die Nummer $3A ist und die $1E*256+$E0=7904 Byte lang 
ist. Das Null-Byte am Anfang des nächsten Eintrags kennzeichnet das 
Ende des Unterverzeichnisses. 

Interessant ist jetzt nur noch die FAT: 


0000 

FF 

FF 

FF 

FF 

4F 

00 

05 

60-00 

07 

80 

00 

09 

A0 

00 

OB 

0010 

CO 

00 

0D 

E0 

00 

0F 

00 

01-11 

20 

01 

13 

40 

01 

15 

60 

0020 

01 

17 

80 

01 

19 

A0 

01 

1B-C0 

01 

ID 

E0 

01 

1F 

00 

02 

0030 

21 

20 

02 

23 

40 

02 

25 

60-02 

27 

80 

02 

29 

A0 

02 

2B 

0040 

CO 

02 

2D 

E0 

02 

2F 

00 

03-31 

20 

03 

33 

40 

03 

35 

60 

0050 

03 

37 

80 

03 

39 

F0 

FF 

3B-C0 

03 

3D 

E0 

03 

3F 

00 

04 

0060 

41 

20 

04 

43 

40 

04 

45 

60-04 

47 

80 

04 

49 

A0 

04 

4B 

0070 

CO 

04 

4D 

E0 

04 

4F 

00 

05-51 

20 

05 

53 

40 

05 

55 

60 

0080 

05 

57 

80 

05 

59 

A0 

05 

5B-C0 

05 

5D 

E0 

05 

5F 

00 

06 

0090 

61 

20 

06 

63 

40 

06 

65 

60-06 

67 

80 

06 

69 

A0 

06 

6B 

00A0 

CO 

06 

6D 

E0 

06 

6F 

00 

07-71 

20 

07 

73 

40 

07 

75 

60 

00B0 

07 

77 

F0 

FF 

00 

00 

00 

00-00 

00 

00 

00 

00 

00 

00 

00 

ooco 

00 

00 

00 

00 

00 

00 

00 

00-00 

00 

00 

00 

00 

00 

00 

00 

00D0 

00 

00 

00 

00 

00 

00 

00 

00-00 

00 

00 

00 

00 

00 

00 

00 

00E0 

00 

00 

00 

00 

00 

00 

00 

00-00 

00 

00 

00 

00 

00 

00 

00 

00 F0 

00 

00 

00 

00 

00 

00 

00 

00-00 

00 

00 

00 

00 

00 

00 

00 
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Das erste $FF-Byte stellt den Media-Descriptor dar, die beiden folgenden 
Bytes sind Füllbytes. Bevor wir mit der Untersuchung der Einträge begin¬ 
nen, möchte ich Ihnen noch die Bit-Folge innerhalb der jeweils 12 Bit 
mitteilen: Man muß hier zwei Fälle unterscheiden. Im ersten Fall beginnt 
der Eintrag mit einem ganzen Byte und endet mit 4 Bit aus dem nächsten 
Byte. Hierbei stellen die unteren 4 Bit des zweiten Byte die obersten 4 Bit 
des Gesamteintrags dar. Im zweiten Fall beginnt der Eintrag mit den 
obersten 4 Bit des zweiten Byte und endet mit dem kompletten dritten 
Byte. Hierbei sind die 4 Bit aus dem zweiten Byte die unteren 4 Bit des 
Gesamteintrags. Kompliziert? Ein wenig schon, deshalb folgendes Beispiel: 

05 60 00 

Diese 3 Byte sollen an einer durch 3 teilbaren Adresse innerhalb der FAT 
beginnen, so daß der erste Eintrag mit dem ersten Byte beginnt. Diese 
8 Bit stellen die untersten 8 Bit des 12-Bit-Eintrags dar, die obersten noch 
fehlenden 4 Bit werden aus den unteren 4 Bit des zweiten Bytes gebildet: 
Da auch hier eine Null steht, ergibt sich für die Gesamtzahl der Wert 005. 
Der zweite Eintrag dieser 3 Byte holt sich die oberen 8 Bit aus dem dritten 
Byte. Die unteren 4 Bit gewinnt man aus den oberen 4 Bit des zweiten 
Byte, so daß sich hier ein Wert von 006 ergibt. Damit ist es einfach, die 
obige FAT auszuwerten. 

Das Unterverzeichnis SUBDIR beginnt im Cluster 2: Hier steht der Wert 
$FFF (ergibt sich aus dem vierten Byte und den unteren 4 Bit des fünften 
Bytes der FAT), was nichts anderes bedeutet, als daß kein weiterer Cluster 
folgt. Die Datei BACKUP.EXE beginnt mit dem Cluster 3: Hier kann man 
nun die Clusterkette weiterverfolgen. Es werden die Cluster $004, $005, 
$006, $007, ..., $037, $038 und $039 belegt. Im Cluster $040 selbst 
(Adresse $0055 die oberen 4 Bit, Adresse $0056) steht der Wert $FFF, es 
folgen also keine weiteren Cluster mehr. Da oben gesagt wurde, daß DOS 
der Version 2 immer den nächsten freien Cluster belegt, verwundert diese 
Belegung nicht. 

Schließlich folgt noch die Belegung der Datei PORTCAPT.EXE, die sich ab 
Cluster $03A direkt anschließt und bis zum Cluster $077 reicht. Ab der 
Adresse $00B2 folgt wieder der Abschluß mit dem Wert $FFF. Sie sehen, 
daß eine Analyse der CCMs gar nicht so schwierig ist, wenn man den Auf¬ 
bau kennt. Die einzige noch offengebliebene Frage ist die, wie man vom 
Programm aus direkt auf einzelne Sektoren zugreifen kann. Natürlich 
könnte man direkt den Speicher ansprechen, indem man die Position des 
Sektors berechnet: Diese Programme sind aber auf dem PC nicht austest¬ 
bar, so daß man sich der BlOS-Interrupts bedienen sollte. 
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Um ein CCM zu formatieren, kann die Funktion $07 des Interrupt $61 
benutzt werden. Dazu wird einfach im AL-Register die Drive-Nummer 
übergeben (0=A:, 1 = B:). Falls ein Fehler auftreten sollte, wird das Carry- 
Flag gesetzt und im AH-Register der Fehlercode zurückgeliefert (s.u.). 
Diese Funktion sollte nicht dazu benutzt werden, die RAM-Disk C: zu for¬ 
matieren. Hierfür hat DIP eine eigene Funktion ($09) eingerichtet. Im BX- 
Register wird die gewünschte Größe in Kbyte übergeben. Falls erfolgreich 
formatiert werden konnte, wird das System neu gebootet, wie Sie es auch 
nach dem FDISK-Befehl gewohnt sind. Im Fehlerfall (gesetztes Carry-Flag, 
in BX wurde ein zu großer Wert übergeben) liefert das BX-Register die 
maximal mögliche Größe in Kbyte zurück. 

Alle Lese-Schreib-Operationen bei CCMs können einen Fehlercode er¬ 
zeugen, der durch ein gesetztes Carry-Flag angezeigt und stets im Register 
AH zurückgeliefert wird. Dabei sind die folgenden Codes möglich: 

$01: Nicht erlaubte Funktionsnummer übergeben 
$03: CCM schreibgeschützt (nur bei Schreibzugriffen) 

$04: Sektor nicht gefunden (nur Nummern 1 bis 8 erlaubt!) 

$09: Datenübertragung über Segmentgrenze 

$10: Lesefehler 

$40: Spur nicht gefunden 

$80: Keine CCM vorhanden 

Beim PC existieren noch einige weitere Fehlercodes, die sich auf die Hard¬ 
ware beziehen (DMA-Controller, Disk-Controller), welche beim Portfolio 
nicht vorhanden ist und damit auch keinen Fehler erzeugen kann. 

Der Fehlercode $03 tritt durch einen BIOS-Fehler bei direkten Sektor¬ 
zugriffen über BlOS-Interrupts nicht auf, auch wenn das CCM schreib¬ 
geschützt ist. Sie sollten sich daher auf keinen Fall darauf verlassen, daß 
die Daten eines schreibgeschützten CCM auch wirklich geschützt sind - 
dies ist nur bei Schreibzugriffen über DOS der Fall. 

Im folgenden möchte ich die Interrupt-Funktionen beschreiben, die auf 
eine einzelne Spur zugreifen. Leider kann man diesen Funktionen nicht 
einfach die Tracknummer (0 bis 31) übergeben, sondern muß sie in Seite 
und Zylinder aufteilen. Da die ersten 16 Tracks auf der Oberseite liegen, 
die 16 unteren auf der Unterseite (was für ein Unsinn bei einer RAM- 
Karte!), kann man Seite und Zylinder nach diesen Formeln berechnen: 

Seite = INT(Track/16) 

Zylinder = Track - 16xSeite 
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Für alle folgenden Funktionen müssen diese Parameter an die Interrupt- 
Service-Routine übergeben werden: Im Register DL die Drive-Nummer 
(0=A:, 1=B:, 2=C:), in DH die Seite und in CH die Zylindemummer. Um 
einen Track eines CCM zu formatieren, kann die Funktion $05 des BIOS- 
Interrupt $13 benutzt werden. Eine Ausnahme bildet der Track 0: Da die 
Funktion $05 keinen Boot-Sektor anlegt, muß hierfür die Funktion $83 
benutzt werden. Im Gegensatz zum PC können nicht einzelne Sektoren, 
sondern immer nur ganze Tracks formatiert werden. Das Füll-Byte kann 
dabei der Disk-Table (Interrupt $1E, Offset $0A) entnommen werden, im 
Normalfall steht hier $F6. Ebenfalls in der Disk-Table (Offset $03) ist ein 
Code für die Sektorgröße eingetragen: 

0: 128 Byte pro Sektor 
1: 256 Byte pro Sektor 
2: 512 Byte pro Sektor 

Die nächsten drei Funktionen des Interrupt $13 dienen dem Lesen ($02), 
Beschreiben ($03) und Verifizieren ($04) eines oder mehrerer Sektoren. 
Dazu müssen zusätzlich zu den oben aufgeführten Parametern noch vier 
weitere übergeben werden: Im Register CL die Nummer des ersten zu 
bearbeitenden Sektors, in AL die Anzahl der zu bearbeitenden Sektoren 
sowie in ES und BX die Segment- und Offsetadresse des Datenpuffers, in 
den die Daten eingelesen bzw. aus dem sie auf das CCM geschrieben 
werden. Wichtig ist zu wissen, daß immer nur aufeinanderfolgende Sekto¬ 
ren innerhalb eines Tracks bearbeitet werden können: 

CL=1, AL=5: 

Korrekt, die Sektoren 1 bis 5 eines Tracks werden bearbeitet. 

CL=5, AL=4: 

Inkorrekt, da auf einem Track nur Sektomummem bis 8 zulässig sind 
(5+4 = 9!). 

Wichtig ist ebenfalls, daß während des Datentransfers kein Segmentüber¬ 
lauf eintritt, da sonst mit dem Fehlercode $09 abgebrochen wird: 

ES=$4000, BX= $1000, CL=1, AL = 8: 

Korrekt, die Daten (8x512=4096 Bytes) werden von $4000:$1000 bis 
$4000:$0FFF abgelegt. 

ES=$4000, BX= $FF00, CL=1, AL = 8: 

Inkorrekt, die Daten werden bei $4000:$FFFF über die Segmentgrenze 
geschrieben. 

Über die Funktion $00 kann ein Reset des CCM ausgelöst werden, wobei 
im DL-Register die Drive-Nummer übergeben wird. Während dieser 
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Funktionsaufruf beim PC nach einem Fehler unmittelbar nötig ist, kann 
man beim Portfolio darauf verzichten. Über die Funktion $01 schließlich 
kann man den Status holen, man liest also den Fehlercode aus, soweit er 
vorhanden ist, ohne eine bestimmte Aktion durchzuführen. Auch hier 
muJ3 in DL die Drive-Nummer übergeben werden. 

Zum Schluß noch ein paar Beispiele: 

AH = $00, DL = $00, Aufruf INT $13: 

Reset von CCM-Laufwerk A: 

AH = $01, DL = $02, Aufruf INT $13: 

Status der RAM-Disk C: holen. 

AH=$02, DL=$00, DH=$01, CH=$01, CL=$01, AL=$04, ES=$2000, 

BX=$0000, Aufruf INT $13: 

Die Sektoren 1 bis 4 des Tracks 17 des CCM A: werden in den Buffer ab 
$2000:$0000 eingelesen. 

AH=$03, DL=$01, DH=$00, CH=$0B, CL=$03, AL=$01, ES=$2000, 

BX=$0000, Aufruf INT $13: 

Der Sektor 3 des Tracks 11 des CCM B: wird mit dem Bufferinhalt ab 
$2000:$0000 beschrieben. 

AH=$04, DL=$02, DH=$00, CH=$04, CL=$01, AL=$08, ES=$2000, 

BX=$0000, Aufruf INT $13: 

Die Sektoren 1 bis 8 des Tracks 4 der RAM-Disk C: werden mit dem 
Bufferinhalt ab $2000:$0000 verglichen. 

AH=$05, DL=$00, DH=$01, CH=$0F, Aufruf INT $13: Track 31 des CCM 
A: wird formatiert. 

AH=$83, DL=$00, DH=$00, CH=$00, Aufruf INT $13: Track 0 des CCM A: 
wird formatiert und ein Boot-Sektor angelegt. 


1.5 Die Tastatur 

Nach dem Bildschirm stellt die Tastatur die zweite große Inkompatibi¬ 
litätsquelle des Portfolio gegenüber dem PC dar. Viele Programme gehen 
davon aus, daß sich an der Adresse $60 der Port für den Tastatur-Con¬ 
troller befindet und programmieren diesen auf direkte Weise. Beim Port¬ 
folio suchen sie aber vergebens, so daß diese Programme nicht funktio- 
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nieren können. Aber auch andere Unterschiede müssen beachtet werden; 
dazu später. 

Zunächst möchte ich Ihnen nahebringen, was eigentlich passiert, wenn 
Sie eine Taste betätigen: Zunächst bekommt der Prozessor davon gar 
nichts mit, nur der Tastatur-Controller weiß Bescheid. Er ist jedoch in der 
Lage, einen Hardware-Interrupt auszulösen, den Interrupt $09. Die 
Service-Routine dieses Interrupts ist nun dafür einzig und allein verant¬ 
wortlich, daß der Tastendruck ausgewertet wird. Dafür wird der Tastatur- 
Controller angesprochen und ein entsprechender Zeichencode ausgelesen. 
Dieser hat beim Portfolio zunächst überhaupt nichts mit dem bekannten 
ASCII- oder Scan-Code zu tun, sondern wird erst softwaremäßig umge¬ 
wandelt. 

Zunächst prüft die Routine, ob ein sogenannter Hot-Key gedrückt wurde, 
also eine Taste bzw. eine Tastenkombination, die bestimmte Aktionen 
starten soll. Beim Portfolio sind dies z.B. die Tasten [w] oder \T\ in Ver¬ 
bindung mit der | Atari | -Taste (Aufruf der Applikationen) oder die Kombi¬ 
nation (fn]+[E) (Hardcopy), wobei im letzteren Fall der Interrupt 5 auf¬ 
gerufen wird. Durch (Tnj+QT) (beim PC: |strg| + | Break | ) wird der Interrupt $1B 
aufgerufen, wodurch im Normalfall das laufende Programm unterbrochen 
und zurück ins DOS verzweigt wird. Im Gegensatz zu den übrigen Tasten 
werden diese Codes intern nicht gespeichert, so daß man sie nicht von 
einem Programm abfragen kann. 

Falls die Prüfung ergeben hat, daß kein Hot-Key betätigt wurde, werden 
Scan- und ASCII-Code in den Tastaturpuffer eingetragen, soweit es sich 
nicht um einen erweiterten Tastaturcode handelt. Einige Zeichen wie z.B. 
die Cursor-Tasten haben in dem 256 Zeichen umfassenden ASCII- 
Zeichensatz nämlich keinen Platz mehr gefunden, so daß sie gesondert 
behandelt werden müssen. Hierbei wird dann statt des ASCII-Codes eine 
Null abgespeichert, der Scan-Code wird durch den erweiterten Tastatur¬ 
code ersetzt. Bei dem Tastaturpuffer handelt es sich um einen 16 Zeichen 
fassenden Ringpuffer, der 32 Byte groß ist und von $0040:$001E bis 
$0040:$003D liegt. Wie bei einem Ringpuffer üblich können ständig neue 
Zeichen eingefügt bzw. alte ausgelesen werden. Die Adresse des nächsten 
auszulesenden Zeichens steht dabei in dem Speicherwort an der Adresse 
$0040:$001A. Wird ein Zeichen ausgelesen, wird der Zeiger so lange um 
2 Byte erhöht, bis das Ende des Puffers erreicht ist, dann wird er wieder 
auf den Anfang des Puffers gesetzt. Der nächste freie Platz im Puffer wird 
durch das Wort in der Adresse $0040:$001C angegeben. Wird ein neues 
Zeichen eingegeben, wird es an der Stelle abgelegt, die durch diesen Zeiger 
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festgelegt wird. Anschließend wird auch er um 2 Byte erhöht, bis das Ende 
des Tastaturpuffers erreicht ist. Dann wird er wieder auf den Anfang 
zurückgesetzt (Bild 1.11). 


$0040:$001E 


$0040:$003D 


IE 

20 

22 

24 

26 

28 

2A 

2C 

2E 

30 

32 

34 

36 

38 

3A 

3C 

HaJ_s 

Äfs 

Äfs 

Äfa 



| 


| 

| 


| 

| 



Äfs) 


L $0040:$001C 
nächstes Zeichen 


$0040:$001A 
erstes Zeichen 


j 


Bild 1.11: Aufbau und Funktion des Tastaturpuffers 

Zwei Fälle verdienen besondere Beachtung: Zum einen kann der Fall auf- 
treten, daß beide Zeiger auf die gleiche Adresse zeigen. In diesem Fall ist 
der Tastaturpuffer leer. Zum anderen kann der Zeiger auf die nächste freie 
Adresse ($00IC) genau 2 Byte vor dem des nächsten auszulesenden 
Zeichens stehen ($001A). Wenn nun ein Zeichen eingelesen wird, wird er 
auf dessen Adresse erhöht. In diesem Fall ist der Tastaturpuffer voll, da 
das nächste eingegebene Zeichen ja das erste auszulesende überschreiben 
würde. Damit dies verhindert wird, wird im Moment der Bewegung des 
Zeigers von $00IC auf den Wert von $001A ein Flag gesetzt, das die 
Meldung »Puffer voll« repräsentiert. Die Interrupt-Service-Routine reagiert 
daruf mit dem bekannten Piepston, um zu signalisieren, daß der Tastatur¬ 
puffer gefüllt ist. Sowie ein Zeichen ausgelesen wird, wird das Flag wieder 
gelöscht, so daß weitere Zeichen aufgenommen werden können. 

Bei den »normalen« ASCII-Codes muß man zwischen den »wirklich nor¬ 
malen« und den Steuercodes unterscheiden. Durch diese werden 
bestimmte Aktionen veranlaßt: 
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Steuercodes des Portfolio 


8 Backspace 

9 Tabulator 

10 Linefeed (Zeilenvorschub) 

13 Return (Cursor an Zeilenanfang) 
27 Escape 


Bild 1.12: Steuercodes im ASCII-Zeichensatz 

Die Scan-Codes bzw. die erweiterten Tastaturcodes der Portfolio-Tastatur 
zeigt Bild 1.13. Bei mehrfach belegten Tasten ist in der oberen Reihe 
immer der Code für die Sonderbelegung aufgeführt (z.B. bei der Taste Q 
oben der Code für [ Posi 1 , unten für Q). 


3B 3C 3D 3E 3F 40 41 42 43 44 



Bild 1.13: Scan-Codes der Portfolio-Tastatur 

Beim PC ist es möglich, durch die Kombination der |Alt | -Taste mit den Zif¬ 
fern des Zehnerblocks jeden beliebigen ASCII-Code direkt einzugeben. 
Beim Portfolio kann man zwar diese Methode ebenfalls anwenden, indem 
man den Zehnerblock simuliert, leider versagt sie aber bei den Codes von 
1 bis 31, also gerade bei denen, die man nicht direkt eingeben kann und 
für die diese Methode ursprünglich gedacht war! Das ist schon bitter, aber 
nicht zu ändern. Dafür funktioniert das Verfahren wenigstens bei den 
übrigen Codes, die größer als 31 sind. 
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Kapitell _ 

Ebenfalls korrekt implementiert sind die erweiterten Tastaturcodes: 


Erweiterte Tastaturcodes des Portfolio 

16-25 

fÄitl+föl ®©®00GDQDGD0 

30-38 

Cäü]+® 000000®® 

44-50 

Güt) + 0 0 0 0 0 0 0 

59-68 

ED.. -CM) 

71 

Iposll 

72 

0 

73 

(Bild t] 

75 

0 

77 

0 

79 

(Ende ] 

80 

0 

81 

1 Bild 4) 

82 

1 Einf) 

83 

(Entf | 

84-93 

(Fll)..|F20| (|SHIFT|+(Fll. . - 1 SHIFT]+| F10 1) 

94-103 

fF2D..rF3Öl (| Strg ]+( Fl |. . . | Strg l+fFlÖl) 

115 

[ Strg |+0 

116 

| Strg |+0 

117 

( Strg ) + f Ende] 

118 

| Strg ] + ( Bild 1] 

119 

| Strg ] + | Posl ] 

120-129 

S0+0 00000000® 

131 

( Strg | + | Bild t] 


Bild 1.14: Die erweiterten Tastaturcodes des Portfolio 

Für die Kommunikation mit der Tastatur stellt das BIOS drei Funktionen 
zur Verfügung, die allesamt über den Interrupt $16 aufgerufen werden. 
Die Funktion $00 liest ein Zeichen aus dem Tasturpuffer aus und entfernt 
es aus diesem. Falls sich kein Zeichen im Puffer befindet, wird so lange 
gewartet, bis ein Zeichen eingegeben wird. Die Rückgabe erfolgt im AX- 
Register: Handelt es sich um einen erweiterten Tastaturcode, wird dieser 
im Register AH übergeben, während das AL-Register den Wert 0 aufweist. 
Ist hingegen eine normale Taste betätigt worden, wird im AL-Register der 
ASCII-Code und im AH-Register der Scan-Code der jeweiligen Taste 
zurückgeliefert. 
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Die Funktion $01 hingegen prüft, ob ein Zeichen im Tastaturpuffer 
vorhanden ist: Falls dies der Fall ist, wird das Zero-Flag gelöscht und der 
Code wie bei der Funktion $00 im AX-Register zurückgeliefert. Im Unter¬ 
schied dazu wird es jedoch nicht aus dem Tastaturpuffer entfernt, so daß 
man bei einem erneuten Aufruf genau das gleiche Zeichen ausliest. Falls 
also ein Zeichen vorhanden ist, muß man anschließend die Funktion $00 
aufrufen, um es auch wirklich zu entfernen. Sollte kein Zeichen im 
Tastaturpuffer vorhanden sein, wird das Zero-Flag gesetzt. Mit dieser 
Funktion kann man die Tastatur »pollen«, d.h., ständig abfragen, ob ein 
Zeichen eingegeben wurde. Im Gegensatz zur Funktion $00 behält dabei 
das eigene Programm die Kontrolle, so daß zwischen zwei Abfragen noch 
andere Aufgaben erledigt werden können. Der Kommandoprozessor des PC 
benutzt z.B. die Funktion $01, um zwischendurch eine Hintergrund- 
Druckausgabe durch den PRINT-Befehl durchführen zu können. 

Der Kommandoprozessor des Portfolio benutzt jedoch die Funktion $00. 
Der Grund ist einfach zu erklären: Die Interrupt-Funktion $00 besitzt für 
den Portfolio eine viel weitreichendere Bedeutung als für den PC: Mit 
ihrem Aufruf wird nämlich ein Timer gestartet, nach dessen Ablauf die 
sogenannte Power-down-Sequenz steht, an deren Ende für jedermann 
sichtbar das Abschalten des Bildschirms steht. Dadurch wird ein enormer 
Stromspar-Effekt erzielt. Das DOS verzichtet damit aber auch auf jede 
Möglichkeit der Hintergrundsteuerung, da die Kontrolle während des 
Wartens auf einen Tastendruck ausschließlich beim BIOS liegt. Die bitter¬ 
ste Konsequenz für Programmierer besteht aber darin, daß mit der Power- 
down-Sequenz auch gewisse Hardware-Abschnitte des Portfolio quasi 
lahmgelegt werden. So ist es z.B. nicht mehr möglich, externe Interrupts 
über die serielle Schnittstelle zu empfangen. Wenn man also auf diese 
Hardware angewiesen ist, muß man die Funktion $01 benutzen, wodurch 
die Einleitung der Power-down-Sequenz verhindert wird. Die eigentliche 
Tragik liegt nun darin, daß alle Einlesefunktionen von Hochsprachen (z.B. 
READLN von Turbo Pascal) im Endeffekt die BIOS-Funktion $00 benutzen 
und deshalb in diesen speziellen Fällen unbrauchbar sind. Der Program¬ 
mierer muß sich dann eine eigene Eingaberoutine schreiben, die die 
Funktion $01 benutzt. Dies ist äußerst ärgerlich, aber nicht zu vermeiden. 
Ebenso wird die TSR-Programmierung durch die Nutzung der Funktion 
$00 durch den Kommandoprozessor wesentlich erschwert, wie in Kapitel 2 
gezeigt wird. Aber DIP hat sich beim Portfolio nun mal das Ziel 
»Stromsparen« als höchste Priorität auserkoren, und dafür ist die Power- 
down-Sequenz eine wirklich geniale Erfindung! 


55 



Kapitell_ 

Durch die Funktion $02 schließlich kann der Tastaturstatus erfragt 
werden, der im Register AL zurückgeliefert wird. Dabei haben die 8 Bit 
folgende Bedeutung: 

Bit 0 gesetzt: Rechte Shift-Taste betätigt 

Bit 1 gesetzt: Linke Shift-Taste betätigt 

Bit 2 gesetzt: Strg-Taste betätigt 

Bit 3 gesetzt: Alt-Taste betätigt 

Bit 4 gesetzt: Scroll-Lock an 

Bit 5 gesetzt: Num-Lock an 

Bit 6 gesetzt: Shift-Lock an 

Bit 7 gesetzt: Entf-Lock an 

Den Status kann man auch holen, indem man die BlOS-Variable an der 
Adresse $0040:$0017 ausliest. Die Interrupt-Funktion $02 macht auch 
nichts anderes, als gerade dieses Byte zu lesen. 

Ein immerwiederkehrendes Problem bei der Softwareentwicklung sind zu 
lange Eingaben der Benutzer. Stellen Sie sich vor, das Programm fordert 
Sie auf, entweder die Taste (T| oder (7) zu drücken, Sie betätigen aber 
beide Tasten. Nun, zunächst wird Ihre Auswertungsroutine nur das erste 
Zeichen holen und auswerten, wodurch die erstgedrückte Taste, also die 
(T), zur Wirkung käme. Was aber passiert, falls das Programm eine weitere 
Eingabe der Form »(T) oder (7)« fordert? Da die ( 2 ) noch als Restmüll im 
Tastaturpuffer verbleibt, wartet das Programm gar nicht ab, bis Sie eine 
Eingabe getätigt haben, sondern liest die verbliebende (T) aus! Um diese 
unangenehme Begleiterscheinung zu verhindern, kann man zwei Dinge 
tun: Zum einen kann man nach jeder Eingabe die Pointer des Tastatur¬ 
puffers auf die gleiche Adresse, z.B. den Anfang des Puffers setzen, um 
dem System vorzugaukeln, der Puffer sei leer (das Beschreiben des 
Tastaturpuffers vom Programm aus ist möglich und ermöglicht spekta¬ 
kuläre Programme; siehe Abschnitt 2.9 »Die Nachlade-Unit«), zum anderen 
kann man eine Funktion des DOS-Interrupt $21 benutzen ($0C), die 
zunächst den Tastaturpuffer leert und dann eine DOS-Eingabefunktion 
nach Wahl aufruft: Es dürfen die DOS-Funktionen $01, $06, $07, $08 
und $0A aufgerufen werden, wobei die Funktionsnummer der Funktion 
$0C im AL-Register übergeben wird. Bis auf die Funktion $0A (Eingabe 
einer Zeichenkette in einen Puffer) wird das eingegebene Zeichen im AL- 
Register zurückgeliefert. Die DOS-Eingabefunktionen arbeiten allesamt 
mit dem BlOS-Interrupt $16, Funktion $00, so daß auch hier bei länge¬ 
rem Warten auf einen Tastendruck die Power-down-Sequenz eingeleitet 
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wird. Falls man auf das Polling angewiesen ist, muß man daher den Puffer 
von Hand löschen: 

$0040:$001A = $001E und $0040:$001C = $001E 

Die erwähnten DOS-Interrupt-Funktionen sind im Anhang beschrieben. 


1.6 Die serielle Schnittstelle 

Die Bedeutung der seriellen Schnittstelle ist beim Portfolio ungleich größer 
als beim PC, da sie neben der normalen Funktion als »Datenüberträger« 
als einziges serienmäßiges Zubehör die Möglichkeit bietet, externe Inter¬ 
rupts an den Prozessor weiterzuleiten; dazu aber später. 

Zunächst möchte ich auf die normale Datenübertragung zu sprechen 
kommen. Wie Sie sicherlich wissen, stellt die serielle Übertragung die uni¬ 
versellste Möglichkeit überhaupt dar: Nicht nur mit Druckern oder 
anderen Computern kann kommuniziert werden, sondern über Modem 
bzw. Akustikkoppler kann per Telefon praktisch jeder Winkel dieser Erde 
erreicht werden, indem die elektrischen Signale in akustische umgewan¬ 
delt werden. Der einzige Nachteil ist, wie der Name »seriell« schon sagt, 
daß die einzelnen Bits nicht parallel, sondern hintereinander übertragen 
werden und ein relativ kompliziertes Übertragungsprotokoll eingehalten 
werden muß, so daß eine serielle Übertragung insgesamt ziemlich langsam 
abläuft. Zumindest bei Nadel-Druckern ist dies aber ohne Bedeutung, da 
diese wesentlich langsamer ausdrucken als Daten übertragen werden 
können. Ein weiterer Vorteil besteht darin, daß nur sehr wenige Leitungen 
vorhanden sein müssen, also Kosten gespart werden. 

Die Daten werden dabei über eine einzige Leitung übertragen, die einen 
der beiden Zustände »logisch 0« oder »logisch 1« annehmen kann. Ob dabei 
»logisch 1« bedeutet, daß eine hohe Spannung anliegt oder nicht 
(»physikalisch 1« bzw. »physikalisch 0«), spielt keine Rolle. Im Normalfall 
steht die Leitung auf »Logisch 1«. Soll nun ein Zeichen übertragen werden, 
zieht die Hardware (ein UART genannter Prozessor) die Leitung auf 
»Logisch 0«, worauf der Empfänger weiß, daß ein Zeichen übertragen 
werden soll. Hierbei handelt es sich um das Startbit der Übertragung. Die 
Länge jedes Bits hängt von der Übertragungsgeschwindigkeit ab, die in 
Baud (Bit pro Sekunde) gemessen wird. Je mehr Baud man wählt, desto 
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schneller kann übertragen werden, desto größer ist aber auch die Fehler¬ 
wahrscheinlichkeit. 

Nach dem Startbit werden dann die Datenbits übertragen, wobei mit dem 
niederwertigsten Bit begonnen wird. Man kann zwischen 7 oder 8 Datenbit 
auswählen. Da man mit 7 Bit nur ASCII-Codes von 0 bis 127 darstellen 
kann, benötigt man im Deutschen wegen der Umlaute, deren ASCII-Code 
größer als 128 ist, immer 8 Datenbit. Bei einem gesetzten Bit erhält die 
Leitung den Zustand »Logisch 1«, sonst »Logisch 0«. Nach den Datenbits 
folgt optional das Parity-Bit. Hierbei wird die Anzahl der gesetzten 
Datenbits durch das Parity-Bit so ergänzt, daß insgesamt eine gerade 
(gerade Parität) oder ungerade (ungerade Parität) Anzahl gesetzter Bits 
vorhanden ist. Dadurch kann der Empfänger etwaige Übertragungsfehler 
feststellen: Wurde z.B. eine gerade Parität gewählt, während insgesamt 
aber 3 gesetzte Bit (Datenbits + Parity-Bit) empfangen wurden, kann der 
Empfänger von einem Übertragungsfehler ausgehen und dies dem Sender 
mitteilen. Leider stellt dies Verfahren aber nicht das Optimum dar, denn 
bei mehreren Fehlem können sich diese kompensieren; wenn z.B. zwei 
ursprünglich gesetzte Bits beide in nicht gesetzte umgewandelt werden, 
wird an der Parität nichts verändert. 

Nach dem Parity-Bit folgen noch 1 bis 2 Stop-Bit, wobei die Leitung wieder 
auf »Logisch 1« gesetzt wird. Auch 1,5 Stop-Bit sind möglich, was nichts 
anderes bedeutet, als daß die Leitung eineinhalbmal solange auf »Logisch 
1« bleibt, wie durch die Baud-Rate für ein Bit festgelegt wurde. So 
bedeuten z.B. 1,5 Bit bei einer Übertragungsrate von 300 Baud (1 Bit = 
V 300 Sekunde) einen Zeitraum von 1,5 /3oo = V 200 Sekunde. Jetzt ist die 
Übertragung eines Zeichens abgeschlossen. Bild 1.15 zeigt den Verlauf der 
Übertragung des Namenszuges DIP bei gerader Parität. (Sie sehen, diese 
Firma hat es mir angetan; in der Tat ist der Portfolio schon ein kleiner 
Geniestreich...) 

Um die Übertragung zu realisieren, besitzt der UART vier Register: Beim 
Senden wird das Datenbyte in das Transmission-Holding-Register 
geschrieben, von wo es in das Transmission-Shift-Register übertragen 
wird. Dabei werden je nach Wahl Start-, Paritäts- und Stopp-Bits 
eingefügt. Aus diesem Register werden dann die einzelnen Bits nach und 
nach auf die Leitung ausgegeben. Der hierfür erforderliche Zeittakt wird 
durch einen Quarz erzeugt, das mit 1,8432 MHz getaktet ist und dessen 
Frequenz entsprechend der gewählten Baud-Rate heruntergeteilt wird. 
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Bild 1.15: Serielle Zeichenübertragung 

Beim Empfang von Daten werden diese in das Receiver-Shift-Register 
geladen, wobei Start-, Parity- und Stop-Bits entfernt werden. Das eigent¬ 
liche Datenbyte wird nach abgeschlossener Übertragung in das Receiver- 
Data-Register geladen, von wo aus es der Programmierer abholen kann. 
Um nicht direkt die Hardware des UART programmieren zu müssen, stellt 
das BIOS insgesamt vier Funktionen des Interrupt $14 zur Verfügung, mit 
denen eine serielle Übertragung einfach realisiert werden kann. 

Die Funktion $00 übernimmt die Initialisierung der Schnittstelle. Dafür 
wird im DX-Register die Nummer der Schnittstelle übergeben (im Portfolio 
immer Null), im Register AL müssen die Konfigurationsparameter stehen. 
Hierbei existieren vier Funktionsgruppen, die jeweils 1 bis 3 Bit enthalten: 


Bit-Belegung des Konfigurationsregisfers AL 






Übertragung 


Parität 


Stoppbits 


Datenbits Gruppe 

765 


43 


2 


10 

Bit-Nr. 

000 

110 Baud 

00 

Keine 

0 

1 

00 

— 

001 

150 Baud 

01 

Gerade 

1 

Nach Baud- 

01 

— 

010 

300 Baud 

10 

— 


Rate l,'l # 5 

10 

7 Bit 

011 

600 Baud 

11 

Ungerade 


2 Bits 

i i 

8 Bit 

100 

1200 Baud 







101 

2400 Baud 







110 

4800 Baud 







111 

9600 Baud 








Bild 1.16: Belegung des Konfigurationsregisters 
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Nehmen wir an. Sie wollen 8 Datenbit mit 1200 Baud mit einem Stopp-Bit 
und gerader Parität übertragen: In diesem Fall müßten Sie die Bit¬ 
kombination 

100 (8 Datenbit) 01 (gerade Parität) 0 (1 Stopp-Bit) 11 (8 Datenbit) 

übergeben, was dem Wert 128+8+2+1=139 entspricht. Zurückgeliefert 
wird (wie auch bei den folgenden Funktionen) der Status der seriellen 
Schnittstelle im Register AH und der Modemstatus im Register AL. Wenn 
Sie natürlich kein Modem angeschlossen haben, sondern z.B. einen 
Drucker, bleiben einige Bits ohne Bedeutung. Zunächst zum Status der 
seriellen Schnittstelle: 

Bit 0 gesetzt: Daten wurden empfangen und in Empfangspuffer geschrieben 
Bit 1 gesetzt: Daten im Empfangspuffer wurden überschrieben 
Bit 2 gesetzt: Paritäts-Fehler 

Bit 3 gesetzt: Zeichen wurde ohne Stopp-Bit empfangen 
Bit 4 gesetzt: Für die Dauer einer Zeichenübertragung wurden nur Nullen 
empfangen 

Bit 5 gesetzt: Transmission-Holding-Register leer 

Bit 6 gesetzt: Transmission-Shift-Register leer, Zeichen wurde gesendet 

Bevor ich auf den Modem-Status zu sprechen komme, lassen Sie mich 
noch auf zwei Probleme bei der seriellen Übertragung hinweisen, die mit 
dem Status der Schnittstelle Zusammenhängen: Beim Senden von Daten 
muß man aufpassen, daß man nicht in das Transmission-Holding- 
Register schreibt, während dort noch das letzte Zeichen steht, da dieses 
sonst überschrieben würde. Man muß also so lange warten, bis Bit 5 des 
Status-Bytes gesetzt ist. Viel schlimmer kann es aber beim Empfang von 
Daten kommen: Wenn man diese nicht rechtzeitig aus dem Receiver-Data- 
Register abholt, kann es passieren, daß sie vom nächsten empfangenen 
Zeichen überschrieben werden. Zwar wird einem das durch das gesetzte 
Bit 1 mitgeteilt, das Datenbyte ist aber unwiederbringlich verlorenge¬ 
gangen. Um so etwas zu vermeiden, hat man eine Möglichkeit vorgesehen, 
um nach dem Empfang des Datenbytes einen Interrupt auszulösen, so 
daß das Programm sofort reagieren und das Byte auslesen kann. Hätte 
man diese Möglichkeit nicht, müßte das Programm ständig die Schnitt¬ 
stelle abfragen (»Polling«), wodurch keine anderen Aufgaben mehr wahr¬ 
genommen werden könnten. 

Nun aber zum Modemstatus. Leider muß man sich dazu etwas mit der 
Hardware beschäftigen. Wenn ich es in diesem Buch auch so oft wie mög¬ 
lich vermeide, direkt auf die Hardware zu sprechen zu kommen (dafür gibt 
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es ja die BIOS- und DOS-Routinen) - in diesem Fall läßt es sich für das 
Verständnis nicht vermeiden. 


Ursprünglich war die serielle Schnittstelle für die Datenübertragung zu 
einem Modem gedacht. Es verwundert also nicht, wenn die Schnittstelle 
mit Leitungen belegt ist, die auf die Bedienung eines Modems geradezu 
zugeschnitten sind. Für die Bedienung eines Druckers z.B. sind diese 
Leitungen nicht allesamt erforderlich. Hier nun die Belegung des neun- 
poligen Sub-D-Stecker des Portfolio: 


Pin 1: CD 
Pin 2: RD 
Pin 3: TD 
Pin 4: DTR 
Pin 5: GND 
Pin 6: DSR 
Pin 7: RTS 
Pin 8: CTS 
Pin 9: RI 


(Carrier Detect) 
(Receive Data) 
(Transmit Data) 

(Data Terminal Ready) 
(Signal Ground) 

(Data Set Ready) 
(Request To Send) 
(Clear To Send) 

(Ring Indicator) 


Fangen wir mit den einfachen Leitungen an: Während GND die Masse¬ 
verbindung darstellt, werden die Daten vom Computer über die Leitung 
TD gesendet und über die Leitung RD empfangen. Die restlichen Lei¬ 
tungen dienen dem »Handshaking« mit dem Modem, ihre Aufgabe besteht 
darin, eine störungsfreie Kommunikation zu ermöglichen. So zeigt der 
Rechner dem Modem über die Leitung RTS an, daß es mit dem Senden der 
Daten beginnen soll. Über die Leitung CTS zeigt das Modem an, daß es frei 
ist, Daten an die Gegenstation (am anderen Ende der Telefonleitung) zu 
übertragen. Diese beiden Leitungen werden für den Druckerbetrieb nicht 
direkt benötigt und daher verbunden: Wird RTS vom Computer auf 
»logisch 1« gelegt, bekommt er über den Eingang CTS ebenfalls eine 
»Logisch 1« präsentiert und »weiß« somit, daß der Drucker frei ist. Über die 
Leitung DSR zeigt das Modem an, daß es betriebsbereit ist, über DTR mel¬ 
det der Rechner, daß er betriebsbereit ist. Diese Leitung bleibt im 
Druckerbetrieb unbelegt, da es für den Drucker ja uninteressant ist, ob 
der Rechner betriebsbereit ist. Umgekehrt wird jedoch die DTR-Leitung 
des Druckers mit der DSR-Leitung verbunden, um dem Rechner anzu¬ 
zeigen, daß der Drucker betriebsbereit ist. Die Leitung RI stellt eine 
Klingelanzeige dar und meldet, wenn das Telefon klingelt, mit dem das 
Modem verbunden ist. Die Leitung CD schließlich gibt den Empfangspegel 
der Gegenstation an, was wichtig für die Interpretation der Leitungs¬ 
zustände als »Logisch 0« oder »Logisch 1« ist. Die letzten beiden Leitungen 
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sind im Druckbetrieb ebenfalls unbelegt. Mit diesem Hintergrundwissen 
kann man sich nun der Belegung des Modemstatusregisters zuwenden: 

Bit 0 gesetzt: CTS-Leitung änderte ihren Zustand seit letztem Zugriff 
Bit 1 gesetzt: DSR-Leitung änderte ihren Zustand seit letztem Zugriff 
Bit 2 gesetzt: RI-Leitung änderte ihren Zustand seit letztem Zugriff 
Bit 3 gesetzt: CD-Leitung änderte ihren Zustand seit letztem Zugriff 
Bit 4: Entspricht dem CTS-Signal 
Bit 5: Entspricht dem DSR-Signal 
Bit 6: Entspricht dem RI-Signal 
Bit 7: Entspricht dem CD-Signal 

Die ersten 4 Bit geben an, ob sich ein Leitungszustand (Eingang) seit dem 
letzten Auslesen des Modemstatus geändert hat. Damit kann man bei zwei 
aufeinanderfolgenden Zugriffen nicht nur feststellen, ob z.B. das Modem 
sendebereit ist (Bit 4 gesetzt), sondern auch, ob dies schon länger der Fall 
(Bit 0 gelöscht) oder gerade eben erst zustande gekommen ist (Bit 0 
gesetzt). 

Mit der Interrupt-Funktion $01 kann ein Zeichen übertragen werden. 
Dafür wird der ASCII-Code im Register AL übergeben, im DX-Register muß 
beim Portfolio eine Null stehen (Nummer der seriellen Schnittstelle). 
Zurückgeliefert wird im AH-Register der Status der Schnittstelle, wobei ein 
gelöschtes Bit 7 bedeutet, daß das Zeichen übertragen wurde. Ist Bit 7 
hingegen gesetzt, trat ein Fehler auf, dessen Ursache in den Bits 0 bis 6 
abgelesen werden kann (s.o.). 

Die Funktion $02 liest ein Zeichen ein, wobei im DX-Register wieder eine 
Null übergeben wird. Konnte das Zeichen korrekt empfangen werden, 
kann man dies am gelöschten Bit 7 im AH-Register ablesen, der ASCII- 
Code des Zeichens steht im Register AL zur Verfügung. Wie bei der Funk¬ 
tion $01 kann im Fehlerfall (Bit 7 im AH-Register gesetzt) die Ursache aus 
den Bits 0 bis 6 abgelesen werden. 

Zwei weitere Funktionen dienen dazu, den Status der Schnittstelle und 
des Modems bzw. die Konfigurationsparameter zu erfragen. Dies sind die 
Funktion $03 des Interrupt $14, welche die gleichen Daten zurückliefert 
wie die Funktion $00, jedoch keine Initialisierung vomimmt, und die 
Funktion $19 des Interrupt $61, welche die gesetzten Parameter in der 
gleichen Form zurückliefert, wie sie gesetzt wurden (siehe Bild 1.16). 

Neben diesen BIOS-Funktionen existieren noch zwei DOS-Funktionen zum 
Zugriff auf die serielle Schnittstelle: Durch die Funktion $03 des DOS- 
Interrupt $21 wird ein Zeichen eingelesen, über die Funktion $04 eines 
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ausgegeben. Ich rate von der Benutzung dieser Funktionen jedoch drin¬ 
gend ab: Der erste Nachteil besteht darin, daß keine Angaben über den 
Status zurückgeliefert werden. Man kann also nur hoffen, daß während 
der Übertragung alles korrekt ablief, hat aber keine Möglichkeit, es nach¬ 
zuprüfen. Der zweite Nachteil besteht darin, daß die Routine zur Zeichen¬ 
ausgabe so lange wartet, bis das Modem (oder der Drucker etc.) bereit ist. 
Ist z.B. ein Drucker nicht angeschlossen, weil Papier fehlt, kann man 
solange warten, bis jemand Papier gekauft und eingelegt hat, eher wird die 
Funktion nicht in das Programm zurückkehren. Davon abgesehen sind 
beide Funktionen relativ langsam, so daß bei hohen Übertragungsraten 
ständig die Gefahr besteht, daß Zeichen beim Empfang überschrieben 
werden. 

Wie schon oben erwähnt, stellt die serielle Schnittstelle als einziges Serien¬ 
zubehör die Möglichkeit zur Verfügung, externe Interrupts auszulösen. 
Dafür muß man direkt auf die Register des UART zugreifen. Im Gegensatz 
zum PC liegen die Ports der Schnittstelle nicht ab der Adresse $03F8, 
sondern an einer Adresse, die man aus einer hierfür zuständigen BIOS- 
Variablen auslesen kann. Diese liegt nun ihrerseits definitiv an der 
Adresse $0040:$0017 und enthält die Startadresse der Ports. Wenn man 
diese Startadresse nun mit »Adresse« bezeichnet, findet man die folgenden 
Register des UART vor: 

Adresse+O: Lesezugriff: Receive-Data-Register 

Schreibzugriff: Transmitting-Holding-Register 
Adresse*1: Interrupt-Enable-Register 
Adresse+2: Interrupt-Identifikation-Register 
Adresse+3: Line-Control-Register 
Adresse+4: Modem-Control-Register 
Adresse+5: Line-Status-Register 
Adresse+6: Modem-Status-Register 
Adresse+7: Scratch-Register 

Wichtig für die Interrupt-Programmierung ist das Interrupt-Enable-Regi- 
ster: In ihm kann man festlegen, bei welchen Ereignissen ein Interrupt 
ausgelöst werden soll: 

Bit 0 = 0: Kein Interrupt, wenn Daten empfangen wurden 
Bit 0=1: Interrupt, wenn Daten empfangen wurden 
Bit 1 = 0: Kein Interrupt, wenn Sendepuffer leer ist 
Bit 1 = 1: Interrupt, wenn Sendepuffer leer ist 
Bit 2 = 0: Schnittstellen-Status-Interrupt sperren 
Bit 2=1: Schnittstellen-Status-Interrupt freigeben 
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Bit 3 = 0: Modemstatus-Interrupt sperren 
Bit 3=1: Modemstatus-Interrupt freigeben 
Bits 4-7 : Unbenutzt 

Wenn man z.B. die Bits 0 und 1 setzt, kann man den seriellen Daten¬ 
transfer völlig Interrupt-gesteuert vornehmen: Man schreibt das erste 
Zeichen in das Transmission-Holding-Register und fährt ganz normal im 
Programm fort. Wenn das Zeichen übertragen wurde, wird ein Interrupt 
ausgelöst und das nächste Zeichen kann zur Übertragung in den Puffer 
geschrieben werden. Auch um den Empfang braucht sich das Haupt¬ 
programm nicht mehr zu kümmern: Falls ein Zeichen angekommen ist, 
wird ein Interrupt ausgelöst, dessen Service-Routine das Zeichen aus dem 
Receive-Data-Register abholen kann. Damit ist kein Polling mehr erforder¬ 
lich, was kostbare Rechenzeit spart. Im Interrupt-Identification-Register 
ist immer das Bit gesetzt, das den Interrupt verursacht hat, so daß man 
bei mehreren zugelassenen Interrupts sehen kann, wodurch er verursacht 
wurde und entsprechend reagieren kann. Die Interrupts »Schnittsteilen- 
Status« bzw. »Modemstatus« werden immer dann ausgelöst, wenn ein Bit 
innerhalb dieser Statusregister »Logisch 1« wird. Wenn Sie genau hin- 
sehen, werden Sie denken, daß hier doppelt gemoppelt wurde, denn auch 
Bit 0 des Statusregisters der Schnittstelle steht für ein empfangenes 
Zeichen. Weshalb also noch der Extra-Interrupt? Nun, der Trick bei dieser 
Sache ist, daß man durch separates Verbieten dieses Interrupts bei gleich¬ 
zeitigem Freigeben des Status-Interrupts ausschließlich dann Interrupts 
erhält, wenn ein Fehler aufgetreten ist (z.B. falsche Parität, Zeichen über¬ 
schrieben etc.), nicht aber, wenn ein Zeichen empfangen wurde (was ja 
kein Übertragungsfehler ist). Um herauszufinden, weshalb ein Interrupt 
durch ein Status-Register ausgelöst wurde, liest man dieses einfach aus 
und prüft, welches Bit gesetzt ist. 

Um nun Interrupts zu ermöglichen, sind zwei Dinge erforderlich: Zum 
einen muß man die Nummer des Interrupt, der ausgelöst werden soll, in 
das sogenannte Serial-Interrupt-Vektor-Register (SIVR), das sich an der 
Adresse $807F befindet, eintragen. Im Gegensatz zum PC besitzt die 
serielle Schnittstelle nämlich keinen festen Interrupt, so daß man auch 
innerhalb eines Programms durch mehrfaches Beschreiben dieses Regi¬ 
sters den Interrupt wechseln kann. Der Vorteil: Man kann mehrere Inter- 
rupt-Service-Routinen installieren und je nach Bedarf eine davon akti¬ 
vieren. Des weiteren muß man die Interrupts freigeben, indem man im 
Interrupt-Enable-Register die entsprechenden Bits setzt. Die Interrupt- 
Service-Routine muß zum korrekten Beenden des Interrupt unbedingt das 
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Interrupt-Identifikations-Register auslesen, auch wenn sie den Inhalt gar 
nicht benötigt (dies hat Hardware-spezifische Gründe). 

Beispiel: 

1. Interrupt definieren: 

$807F = 200 (Interrupt-Nummer 200 benutzen) 

2. Interrupt-Vektor belegen: 

200x4 = Offset(Interrupt-Service-Routine) 

200x4+2 = Segment(Interrupt-Service-Routine) 

3. Adresse UART holen: 

Adresse = $0040:$0017 

4. Interrupts freigeben: 

Adresse+1 = 1 (Interrupt bei »Daten empfangen«) 
Interrupt-Service-Routine: 


Programmcode 


Dummyvariable = Adresse+2 (Interrupt-Identification-Register auslesen) 
IRET 


1.7 Die Echtzeituhr 

Bislang konnte ich Ihnen leider nur von Inkompatibilitäten des Portfolio 
gegenüber dem PC berichten, die sich bei der Programmierung negativ 
auswirken. Doch der Winzling hält auch eine positive Überraschung 
bereit: eine batteriegepufferte Echtzeituhr, wie sie normalerweise nur im 
AT installiert ist. Der Vorteil gegenüber dem PC und XT besteht einfach 
darin, daß man die Uhr nicht bei jedem Neustart des Rechners neu setzen 
muß, sondern daß Datum und Uhrzeit, wenn sie einmal eingegeben 
wurden, für immer gespeichert bleiben (natürlich nicht, wenn die Batte¬ 
rien leer sind ...). Des weiteren kann man Alarmzeiten programmieren, bei 
denen ein Interrupt $4A ausgelöst wird. Dieses Verfahrens bedient sich 
z.B. der Terminplaner; dazu jedoch später. 

Alle Eingaben der Echzeituhr müssen im sogenannten BCD-Format vor¬ 
genommen werden, was mit der Hardware der Uhr zusammenhängt. Dies 
bedeutet, daß eine Dezimalzahl (0 bis 9) immer durch eine Gruppe von 
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4 Bit repräsentiert wird. In der Praxis bedeutet dies, daß von 0 bis 9 keine 
Änderung gegenüber dem normalen Zahlenformat festzustellen ist. Wenn 
jedoch die Zahl 9 überschritten wird, bedeutet dies im Dezimalformat, daß 
eine neue Stelle hinzugefügt werden muß, also auch eine neue 
Vierergruppe Bits »aufgemacht« werden muß, wobei dann wieder ganz 
normal bei der Zahl 0 begonnen wird. Die folgende Tabelle stellt die BCD- 
Zahlen von 0 bis 100 dar: 


BCD-Codes von 0 bis 100 


Dezimal 


BCD-Code (Binär) 


BCD-Code (Dezimal) 


2 

3 

4 

5 

6 

7 

8 

9 

10 


19 

20 
21 


97 

98 

99 

100 


0010 

0011 

0100 

0101 

0110 


10010111 
1001 1000 
1001 1001 


1000 

8 

1001 

9 

0001 0000 

16 

0001 0001 

17 

0001 1001 

25 

00100000 

00100001 

32 

33 


49 

50 

0100 1001 

0101 0000 

73 

80 

51 

0101 0001 

81 

96 

1001 0110 

150 


151 

152 

153 
256 


Für die Programmierung der Echtzeituhr stellt das Portfolio-BIOS ins¬ 
gesamt sechs Funktionen des Interrupt $1A zur Verfügung. 
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Funktion $02: Uhrzeit auslesen 

Ausgabe: 

Wenn Carry-Flag = 0: CH = Stunde, CL = Minute, DH = Sekunde (im BCD- 
Format!) 

Wenn Carry-Flag = 1: Fehler (Batterie ist leer) 

Funktion $03: Uhrzeit setzen 

Eingabe: 

CH = Stunde, CL = Minute, DH = Sekunde, DL = Kalender (DL=1: Es ist 
Sommerzeit, DL=0:Es ist keine Sommerzeit) 

Funktion $04: Datum auslesen 

Ausgabe: 

Wenn Carry-Flag = 0: CH = Jahrhundert (19 oder 20), CL = Jahr, DH = 
Monat, DL = Tag (im BCD - Format!) 

Wenn Carry-Flag = 1: Fehler (Batterie ist leer) 

Funktion $05: Datum setzen 

Eingabe: 

CH = Jahrhundert (19 oder 20), CL = Jahr, DH = Monat, DL = Tag (im 
BCD-Format) 

Funktion $06: Alarmzeit setzen 

Eingabe: 

CH = Stunde, CL = Minute, DH = Sekunde (im BCD-Format) 

Ausgabe: 

Wenn Carry-Flag = 0: Alarmzeit wurde programmiert 

Wenn Carry-Flag = 1: Fehler (Batterie leer oder bereits programmierte 
Alarmzeit) 

Funktion $07: Alarmzeit löschen 

Eingabe: Keine 

Da immer nur ein Alarm gleichzeitig programmiert werden kann, muß bei 
einer Verschiebung einer Alarmzeit diese zunächst mit der Funktion $07 
gelöscht werden, bevor mit Hilfe der Funktion $06 eine neue Zeit pro¬ 
grammiert werden kann. Die Alarmzeit bezieht sich dabei immer auf den 
aktuellen Tag. Bei Erreichen der Alarmzeit wird ein Interrupt $4A aus¬ 
gelöst. Die Interrupt-Service-Routine besteht nach dem Starten des Port¬ 
folio nur aus dem Befehl IRET, so daß sofort ins aufrufende Programm 
zurückgekehrt wird, ohne daß irgendetwas passieren würde. Da man im 
Normalfall aber auf einen Alarm reagieren möchte, muß man den Inter¬ 
rupt-Vektor auf eine eigene Interrupt-Routine verbiegen, die dann auf den 
Alarm reagieren kann. Das folgende Mini-Beispielprogramm setzt zunächst 
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Datum und Uhrzeit und programmiert dann einen Alarm für eine Minute 
später. Nach dem Programmstart sehen Sie nur einen blinkenden Cursor, 
da das Programm auf einen Tastendruck wartet. Nach einer Minute jedoch 
erfolgt eine Bildschirmausgabe, die durch den WRITE-Befehl innerhalb der 
Interrupt-Prozedur vorgenommen wird. Deshalb wurde auch ganz zum 
Anfang der Interrupt-Vektor $4A auf diese Interrupt-Routine umgeleitet. 
Nach einem Tastendruck wird das Programm beendet. Um das folgende 
Programm ablaufen zu lassen, ist die CRT-Unit für den Portfolio aus dem 
Kapitel 2.4 erforderlich. Diese Unit ist auf der Begleitdiskette enthalten. 


PROGRAM ECHTZEITUHR; 
{$M 3000,0,0} 


USES portcrt,dos; 


var reg : registers; 

intofs : word absolute $0000:$0128; 

intseg : word absolute $0000:$012A; 


PR0CEDURE alarm; 
interrupt; 

BEGIN 

writelnC ****ALARM !!!!!****'); 

END; 

BEGIN 

intseg := Seg(alarm); {Interrupt-Vektor $4A neu setzen} 
intofs := Ofs(alarm); 

(Datum auf 27.9.1990 setzen} 


reg.ah := 5; 
reg.ch 
reg.cl 
reg.dh 
reg.dl 
Intr($lA,reg); 


25; 

{19 im BCD-Format) 

144; 

{90 im BCD-Format} 

9; 

{ 9 im BCD-Format} 

39; 

{27 im BCD-Format} 


{Uhrzeit auf 9:41:00 setzen} 


reg.ah :- 3; 
reg.ch := 9; 
reg.cl := 64; 
reg.dh := 0; 
reg.dl := 0; 
Intr($lA,reg); 


{ 9 im BCD-Format} 
{40 im BCD-Format} 
{ 0 im BCD-Format} 
{Keine Sommerzeit} 


{Alarmzeit löschen} 
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reg.ah := 7; 

Intr($lA,reg); 

{Alarmzeit auf 9:42:00 setzen} 
reg.ah := 6; 

reg.ch := 9; { 9 im BCD-Format) 

reg.cl := 65; {41 im BCD-Format} 

reg.dh := 0; { 0 im BCD-Format} 

Intr($lA,reg); 

REPEAT 

UNTIL Keypressed; 

END. 
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Kapitel 2: Programmierung in Turbo Pascal und Turbo 
Assembler 


2.1 Turbo-Pascal-Programme auf dem Portfolio 

Wenn man der Werbung von Atari Glauben schenkt, müßte an sich jedes 
für den PC entwickelte Programm auch auf dem Portfolio laufen, falls der 
Arbeitsspeicher dafür ausreicht. In Kapitel 1 wurde jedoch deutlich, daß 
wesentliche Hardware-Unterschiede zum PC bestehen und dieses 
Wunschdenken daher nicht der Realtität entspricht. Besonders bitter trifft 
dies die Pascal-Programmierer unter ihnen, die besonders mit drei 
Problemen konfrontiert werden: 

□ Durch einen falschen Eintrag im Kopf der Pascal-.EXE-Datei lassen 
sich viele Programme erst gar nicht starten. 

□ Die CRT- und GRAPH-Units laufen nicht, sondern lassen den Port¬ 
folio abstürzen. 

□ Durch das Fehlen des Interrupt $28 laufen keine TSR-Programme 
herkömmlicher Art. 

Nun, Probleme sind dazu da, daß man sie löst. In den folgenden 
Abschnitten werden wir Schritt für Schritt eine Pascal-Programmierung 
auch auf dem Portfolio möglich machen. Die meisten Programme ent¬ 
halten dabei Assembler-Routinen, die mit dem Turbo Assembler entworfen 
wurden und dann in das Pascal-Programm eingebunden wurden. Bei 
Turbo-Assembler-Programmen gibt es keinerlei Schwierigkeiten auf dem 
Portfolio, da ihr Code ja zu 100% von einem selbst entworfen wird und 
nicht durch vorgefertigte Compiler-Routinen ergänzt wird, die bei Turbo 
Pascal im Endeffekt für die Inkompatibilitäten verantwortlich sind. 



2.2 Einstellungen der Compiler 


Für die Turbo-Pascal-Programmierung werden heute praktisch nur noch 
die Compiler der Versionen 4.0 und 5.0 bzw. 5.5 eingesetzt. Bevor man 
sich Gedanken über das eigentliche Programm macht, sollte man für den 
Portfolio sinnvolle Compiler-Voreinstellungen wählen. Bei diesem Rechner 
müssen die Programme vor allen Dingen unter dem Gesichtspunkt der 
Minimierung des Speicherbedarfs erstellt werden. Dies bedeutet, daß jeder 
zusätzliche Prüfcode, Debug-Informationen und Symboltabellen in Port- 
folio-Programmen fehl am Platz ist, zumal man auf dem Portfolio sowieso 
nicht debuggen kann. Im OPTIOiVS-Menü unter dem Menüpunkt COM¬ 
PILER sollten daher für die Compiler-Version 4.0 folgende Einstellungen 
vorgenommen werden: 


File 
Line 1 


Edit Run Conpile 
Col 1 Insert Indent 


Options 


Coupiler 


Range checking 

Off 

Stack checking 

Off 

I/O checking 

Off 

Debug information 

Off 

Turbo pascal map file 

Off 

Force far ca 11s 

Off 

Uar-string checking 

Strict 

Boolean evaluation 

Short Circuit 

Numeric Processing 

Softuare 

Link buffer 

Memory 

Conditional defines 


Memory sizes 



Fl-Help F2-Saue F3-Load F5-Zoon F6-Edit F9-Make FlO-Main nenu NUM 


Bild 2.1: Compiler- 
Einstellungen für 
Turbo Pascal 4.0 


Entsprechend sind für die Versionen 5.0 und 5.5 diese Einstellungen 
sinnvoll: 
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|Dptions| 


Line 1 


Col 1 Insert Inde 


Debug Break/uatch 


Range checking 

Off 

Stack checking 

Off 

I/O checking 

Off 

Force far calls 

Off 

Overlays allowed 

Off 

Align data 

Byte 

Oar-string checking 

Relaxed 

Boolean evaluation 

Short Circuit 

Numeric processing 

Softuare 

Emulation 

Off ! 

Debug Information 

Off j 

Local synbols 

Off 

Conditional defines 


Memory sizes 



Match 


Fl-Help F5-Zoon F6-Suitch F7-Trace F8-Step F9-hake Flö-Menu 


I MUH I 


Bild 2.2:Compiler- 
Einstellungen für 
Turbo Pascal 5.0 
und 5.5 


Besonders durch den Wegfall des zusätzlichen Prüfcodes für die Punkte 
Rartge-Checking und Stack-Checking wird eine Unmenge an Speicherplatz 
gespart. Informationen für den Turbo Debugger sind ohnehin wertlos, da 
sich dieser auf dem Portfolio nicht installieren läßt. Ich kenne Programme, 
die bei einer Kompilierung mit den obigen Einstellungen mehr als 50 % 
kürzer wurden als bei einer Kompilierung mit den Standardvorgaben und 
erst dadurch auf dem Portfolio lauffähig wurden. 


2.3 Eintrag der korrekten Programmlänge in den Kopf der EXE-Datei 

Wenn Sie sich einmal mit einem Diskettenmonitor die ersten Bytes einer 
EXE-Datei anzeigen lassen, finden Sie als erstes Wort den Eintrag $54AD. 
Dieses ist eine Kennzeichnung, durch die eine Datei als Typ EXE gekenn¬ 
zeichnet wird. Die nächsten beiden Wörter enthalten nun die Dateilänge, 
die wie folgt berechnet wird: 

Dateilänge = zweites Wort x 512 + erstes Wort 

Der Turbo-Pascal-Compiler enthält bereits seit Version 4.0 einen Fehler: 
Er trägt in das erste Wort einen Wert ein, der genau um eins größer ist als 
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der eigentlich zu erwartende Wert. Dadurch wird also die Länge des 
Programms um 512 Byte zu groß angesetzt. Bislang ist dieser Fehler wohl 
niemandem (auch mir nicht) so richtig aufgefallen, denn MS-DOS ignoriert 
den Eintrag. Sie können dort hineinschreiben, was Sie wollen, das 
Programm läßt sich immer richtig starten. 

Anders sieht die Sache nun mit dem DIP-Operating-System des Portfolio 
aus. Zunächst muß man wissen, daß der Portfolio im Gegensatz zu MS- 
DOS zu einer Zeit entwickelt wurde, als das Problem der Computerviren 
dramatische Züge annahm. Viele Viren arbeiten so, daß sie sich einfach 
an das bestehende Programm anhängen. Die Idee der DIP-Entwickler war 
nun die, daß vor dem Programmstart die tatsächliche Programmlänge mit 
dem Eintrag im Kopf der EXE-Datei verglichen werden sollte, um einem 
verlängerten und damit potenziell virenverseuchten Programm auf die 
Spur zu kommen. Falls beide Werte nicht übereinstimmen, wird die Mel¬ 
dung EXEC-Fehler ausgegeben und ein Start des Programms verhindert, 
wodurch die Viren keine Möglichkeit haben, in das System einzugreifen 
und dort ihr Unwesen zu treiben. Auch eine Vervielfältigung ist damit 
unmöglich geworden. Die Meldung kommt übrigens nicht, wenn für das 
Programm nicht genug Speicher zur Verfügung steht, in diesem Fall wird 
die Meldung Nicht genug Speicher ausgegeben. 

Sicherlich ist dieses Anti-Viren-Betriebssystem in der heutigen Zeit sinn¬ 
voll. Das Problem besteht jedoch darin, daß es nicht zwischen tatsächlich 
virenverseuchten Programmen und solchen unterscheiden kann, die im 
Grunde genommen harmlos sind (wie unsere Pascal-Programme) und 
trotzdem einen falschen Eintrag im Kopf der EXE-Datei aufweisen. Inter¬ 
essanterweise enthält das Betriebssystem jedoch noch einen Fehler, der 
den Start mancher Programme erlaubt, obwohl der Eintrag nicht mit der 
tatsächlichen Programmlänge übereinstimmt. Hier hilft nur ausprobieren. 

Wenn Sie aber die Meldung EXEC-Fehler erhalten sollten, müssen Sie 
einfach nur die tatsächliche Programmlänge in die beiden Wörter im Kopf 
eintragen, und schon läuft Ihr Programm auf dem Portfolio. Die Korrektur 
kann man umständlich per Hand durchführen oder einem Programm 
überlassen. Da letzteres sicherlich bequemer ist, habe ich das Korrektur¬ 
programm PORTMAKER entworfen, welches die Bytes einer Datei zählt 
und anschließend den Eintrag im Kopf der Datei korrigiert. 
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PROGRAM Portmaker; 

{written by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 


{$ 1 -} 

{$M 4000,2000,2000} 

USES dos.crt; 

VAR 

zaehler : longint; 
f : file; 
high : word; 
low : word; 
name : String; 
dummy : byte; 
frage : char; 

CONST 

full Stern : string[80] = 

i***********************************************•+ 

i ********************************** i. 

» 

randstern : string[1] = 

{— Texteingabe: Bildschirmeingabe eines Textes —} 

{— Eingabe: StringVARiable, Koordinatenpaar —} 

{—x,y (0..79,0..24), maximale Länge, —} 

{— Ausgabe: Texteingabe —} 

FUNCTION Eingabe(x,y,maxlaenge : byte) : string; 

VAR taste,laenge,i : byte; 
ss : string; 

BEGIN 

GotoXY(x,y); 
ss := "; 
laenge := 0; 

REPEAT 

taste := Ord(ReadKey); {ASCII-Code holen} 

CASE taste of 

32..255 : BEGIN 

IF laenge < maxlaenge THEN BEGIN 
inc(x); 
inc(laenge); 
write(chr(taste)); 
ss := ss + chr(taste); 

END; 

END; 

{Hier BEGINnen, wenn Backspace gedrückt} 
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8 : BEGIN 

IF laenge > 0 THEN BEGIN 
dec(x); 
dec(laenge); 

GotoXY(x,y); {Letztes Zeichen löschen) 

write(' '); 

GotoXY(x,y); 

ss := copy(ss,l,Length(ss)-l); 

END; 

END; 

END; 

UNTIL taste = 13; {Abschluß mit RETURN) 

Eingabe := ss; 
writeln; 

END; 

{— Standardbild: Bildschirm aufbauen —} 

{— Eingabe: keine Ausgabe: Keine —} 

PROCEDURE Standardbild; 

VAR i : byte; 

BEGIN 

ClrScr; 

write(full stern); 

GotoXY(l,3); 

write( 1 ************************* m&T PORTMAKER **************************•). 
GotoXY(l,5); 

write ('*********** (C)opyright 1990 by Markt & Technik Aktiengesellschaft ***********') ; 
GotoXY(l,7); 

write ('***************** written 1989,1990 by Frank Riemenschneider *****************«) ; 
GotoXY(1,9); 
write(fullstern); 

GotoXY(0,0); 

For i := 1 to 22 DO BEGIN 
GotoXY(l,i); 
write(randstern); 

GotoXY(80,i); 
write(randstern); 

END; 

write(fullstern); 

GotoXY(4,11); 

write('PORTMAKER macht Turbo-Programme (Pascal 4.0, 5.0 und 5.5, C 2.0 und C++,'); 

GOTOXY(4,13); 

write('Assembler l.X und 2.0) auf dem Portfolio lauffähig, indem die wirkliche'); 

GOTOXY(4,15); 

write('Programmlänge in den Kopf der .EXE-Datei eingetragen wird.'); 

GOTOXY(4,17); 

write('Bitte geben Sie Pfad- und Dateiname der zu korrigierenden Datei ein:'); 

END; 
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BEGIN 

Standardbild; 

REPEAT 

GOTOXY(4,19); 

write('Dateiname : < >'); 

name := Eingabe(17,19,50); 

{Falls das Suffix '.exe' nicht mit eingegeben wurde, wird dies angehängt } 

IF Copy(name,length(name)-3,l) <> '.'THEN name := name + '.EXE'; 

GotoXY(4,21); 

Randomize; 

Assign(f,name); 

Reset(f,1); 

IF IOResult = 0 THEN BEGIN 
zaehler := 0; 

WHILE ((not EOF(f)) and (IOResult = 0)) DO BEGIN 
blockread(f,dummy,l); 

{Datenbytes zählen,alle 500 Bytes eine Meldung ausgeben} 
inc(zaehler); 

IF Trunc(zaehler/500) = (zaehler/500) THEN BEGIN 
GotoXY(4,21); 

write(' '); 

GotoXY(4+Trunc(Random*50),21); 
write('Arbeite...'); 

GotoXY(4,21); 

END; 

END; 

IF E0F(f) THEN BEGIN 

{Eintrag für Kopf der Datei berechnen und hineinschreiben} 

high := Trunc(zaehler/512); 
low := zaehler - high*512; 

Seek(f,2); 

IF IOResult = 0 THEN blockwrite(f,low,2); 

IF IOResult = 0 THEN blockwrite(f,high,2); 

IF IOResult = 0 THEN BEGIN 

write('Die Datei wurde korrigiert. Weitere Dateien umwandeln (J/N)?'); 

END 

ELSE BEGIN 

write('Beim Schreiben trat ein Fehler auf. Weitere Dateien umwandeln (J/N)?'); 
END; 

END 

ELSE BEGIN 

write('Beim Lesen trat ein Fehler auf. Weitere Dateien umwandeln (J/N)?'); 

END; 

close(f); 

END 
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ELSE BEGIN 

write( 1 Fehler beim Öffnen der Datei. Weitere Dateien umwandeln (J/N)? 1 ); 

END; 

REPEAT 

frage := UpCase(ReadKey); 

UNTIL ((frage = 'J 1 ) or (frage = 'N 1 )); 

GotoXY(4,21); 

write(' '); 

UNTIL (frage = ’N'); 

ClrScr; 

END. 

Nach dem Programmstart (bitte auf dem PC!) werden Sie einfach nach dem 
Namen der zu korrigierenden Datei gefragt, wobei Sie das Suffix .EXE 
optional angeben oder weglassen können. Anschließend wird die Datei 
bearbeitet. Sie werden nun gefragt, ob noch weitere Dateien bearbeitet 
werden sollen. Nach der Eingabe (¥) wird das Programm beendet. 

Bitte beachten Sie, daß der Portfolio nach dem EXEC-Fehler manchmal 
ein wenig durcheinander ist und sich auch das korrigierte Programm dann 
nicht starten läßt. Hier hilft ein Hardware-Reset weiter, wonach die Bau¬ 
steine neu initialisiert werden. Anschließend können Sie das Programm 
ohne Probleme starten. 


2.4 Eine CRT-Unit für den Portfolio 

Das größte Problem für Portfolio-Programmierer besteht sicherlich darin, 
daß die CRT-Unit von Turbo Pascal überhaupt nicht läuft, sondern den 
Rechner zum Absturz bringt. Damit fehlen die wichtigen Routinen zur 
Bildschirmprogrammierung, wie z.B. Setzen des Cursors, Bildschirm¬ 
löschen etc. 

Ich habe deshalb eine eigene auf den Portfolio zugeschnittene Unit pro¬ 
grammiert, die alle Befehle der Original-Unit ersetzt, soweit sie auf dem 
Portfolio sinnvoll anzuwenden sind. Dabei wurden nicht nur die Original¬ 
namen der Befehle verwendet, sondern soweit möglich auch ein iden¬ 
tisches Aufrufformat, so daß die meisten PC-Programme gar nicht erst 
verändert werden müssen. Es ist lediglich die Original-CRT-Unit durch die 
neue mit dem Namen PORTCRT zu ersetzen. 

Zusätzlich zu diesen Befehlen wurden noch einige Portfolio-spezifische 
hinzugefügt, insbesondere, um die diversen Bildschirmmodi ansprechen 
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zu können. Bevor ich Ihnen die Befehle im einzelnen vorstelle, hier 
zunächst das Listing der PORTCRT-Unit: 


UNIT portcrt; 

{written by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 

{$L arcrtasm.obj} 


INTERFACE 

C0NST 

portfolio = 1; 
statisch = 0; 
dynamisch = 2; 
oben = 1; 
unten = 2; 
links = 3; 
rechts =4; 


{Konstanten für Bildschirmsteuerung} 


VAR 

xmax,ymax : byte; 

PR0CEDURE Sound(frequenz,dauer : word); 

FUNCTION KeyPressed : boolean; 

FUNCTION ReadKey : Char; 

PR0CEDURE Delay(zeit : word); 

PR0CEDURE ClrScr; 

PR0CEDURE Window(xl,yl,xr,yr : byte); 

PR0CEDURE Textmode(mode : byte); 

PR0CEDURE GotoXY(x,y : byte); 

PR0CEDURE Del Li ne(y : byte); 

PR0CEDURE Ins Line(y : byte); 

FUNCTION StoreBild(xl,yl,x2,y2 : word) : pointer; 

PR0CEDURE LoadBild(p : pointer); 

PR0CEDURE ScrollScreen(off,richtung : byte); 

PR0CEDURE MoveScreen(xpos,ypos : byte); 

FUNCTION Portmenue(titel : String; xpos,ypos,anzahl .breite : byte; 

VAR punkte) : byte; 

FUNCTION WhereX : byte; 

FUNCTION WhereY : byte; 

FUNCTION GetScreenMode : byte; 

FUNCTION GetScreenPos : word; 

IMPLEMENTATION 


USES dos; 
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VAR reg: registers; 
saveexit : pointer; 

int_16 : pointer absolute $0000:$0040; 
int_10 : pointer absolute $0000:$0028; 
int_06 : word absolute $0000:$0018; 
modus,spei eher : byte; 
xlo,xru,ylo,yru : byte; 
retint : pointer; 

{$F+} 

PROCEDURE Newlnt; EXTERNAL; 

PR0CEDURE Save(s,o,size,xl,yl,x2,y2 : word); external; 

FUNCTION Load(s,o:word) : word; external; 

{$F—} 

{— Sound: Schaltet Lautsprecher ein 
{— Eingabe: Frequenz in Herz, Tondauer 
{— Ausgabe: Keine 

PROCEDURE Sound(frequenz,dauer : word); 

VAR reg : registers; 
i : byte; 

C0NST 

freq : array[1..25] of word = (2489,2349,2217,2093,1975,1865,1760,1661,1568,1480, 

1397,1318,1245,1175,1109,1046,988,932,880,831,784, 

740,699,659,622); 

wert : array[1..25] of byte = (7,6,$2F,$25,5,4,$3F,$2C,$3E,$0E,$3D,$3C, 

$3B,$29,$3A,$39,$38,$37,$36,$35,$34,$33, 

$32,$31,$30); 

BEGIN 
i := 1; 

WHILE ((freq[i] > frequenz) and (i<= 25)) DO BEGIN 
inc(i); 

END; 

reg.dl := wert[i]; 
reg.ah := 22; 
reg.cx := dauer; 

Intr(97,reg); 

END; 

{— Delay: Wartet eine bestimmte Zeit 
{— Eingabe: Zeit in Millisekunden 
{— Ausgabe: Keine 

PROCEDURE Delay(zeit : word); 

VAR i,j : word; 

BEGIN 

F0R i:= 0 to zeit DO BEGIN 
F0R j:= 0 to 55 DO BEGIN 
END; 

END; 

END; 


-) 

-} 

-} 


-} 

-) 

-1 
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{— KeyPressed: Prüft, ob Taste gedrückt 
{— Eingabe: Keine 
{— Ausgabe: Ja/Nein (True/False) 


-} 

-} 


FUNCTION Keypressed : boolean; 

VAR reg : registers; 

BEGIN 

reg.ah := 1; 

Intr(22,reg); 

IF (reg.flags and 64) <> 0 THEN BEGIN 
Keypressed := False; 

END 

ELSE BEGIN 
KeyPressed := True; 

END; 

END; 

{— ReadKey: Holt Zeichen von Tastatur —) 

{— Eingabe: Keine —} 

{— Ausgabe: ASCII/Scan-Code —} 

FUNCTION ReadKey : char; 

VAR reg : registers; 

BEGIN 

IF Speicher = 0 THEN BEGIN 
REPEAT 
reg.ah := 1; 

Intr(22,reg); 

UNTIL (reg.flags and 64) = 0; 
reg.ah := 0; 

Intr(22,reg); 

ReadKey := chr(reg.al); 

IF reg.al = 0 THEN BEGIN 
Speicher := reg.ah; 

END; 

END 

ELSE BEGIN 

ReadKey := ehr(speieher); 

Speicher := 0; 

END; 


END; 


{— WhereX: Holt X-Position Textcursor 
{— Eingabe: Keine 
{— Ausgabe: X-Position 


-} 

-} 


FUNCTION WhereX : byte; 
VAR reg : registers; 


BEGIN 

reg.ah := 3; 
reg.bh := 0; 
intr(16,reg); 

WhereX := reg.dl - xlo; 


{Interrupt hex. 10, Funktion 3) 
{in PC INTERN auf Seite 922} 


END; 


81 



{— WhereY: Holt Y-Position Textcursor 
{— Eingabe: Keine 
{— Ausgabe: Y-Position 


-} 


-} 


FUNCTION WhereY : byte; 
VAR reg : registers; 


BEGIN 

reg.ah := 3; 
reg.bh := 0; 
intr(16,reg); 

WhereY := reg.dh - ylo; 


{Interrupt hex. 10, Funktion 3} 
{in PC INTERN auf Seite 922} 


END; 


{— GotoXY: Positioniert Textcursor 
{— Eingabe: Koordinatenpaar x,y (0..39,0..7) 
{— Ausgabe: Keine 


-} 


PROCEDURE GotoXY(x,y : byte); 

VAR reg : registers; 

BEGIN 

IF ((x >=0) and (x <= xru) and (y>=0) and (y<= yru)) THEN BEGIN 
reg.ah := 2; 
reg.bh := 0; 
reg.dl := x+xlo; 

reg.dh := y+ylo; {Interrupt hex. 10, Funktion 2,} 

intr(16,reg); {in PC INTERN auf Seite 922} 


END; 


END; 


{— ClrScr: Löscht Bildschirmfenster 
{— Eingabe: Modus 
{— Ausgabe: Keine 


-} 


PROCEDURE ClrScr; 

VAR reg: registers; 

BEGIN 

reg.ah := 6; 
reg.al := 0; 
reg.ch := ylo; 
reg.cl := xlo; 
reg.dh := yru; 
reg.dl := xru; 
reg.bh := 15; 

Intr(16,reg); 

GotoXY(0,0); 

END; 

{— Window: Definiert Fenster —} 

{— Eingabe: linke obere Ecke, rechte untere Ecke —} 

{— Ausgabe: Keine —} 


PROCEDURE Window(xl,yl,xr,yr : byte); 
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BEGIN 

IF ((xl >= 0) and (xl<=xmax) and (xr>=0) and (xr<=xmax) and 
(yl >= 0) and (yl<=ymax) and (yr>=0) and (yr<=ymax)) THEN BEGIN 
IF ((xl>0) or (yl>0) or (xr<xmax) or (yr<ymax)) 

THEN BEGIN 

int_16 := ONewInt; {Neuen Interrupt-Vektor 10h setzen} 

END 

ELSE BEGIN 

int_16 := retint; {Interrupt-Vektor 10h wieder auf alten Wert} 
END; 

xlo := xl; 
ylo := yl; 
xru := xr; 
yru := yr; 

GotoXY(0,0); 

END; 

END; 


{— Textmode: Schaltet Textmodus + löscht Bildschirm —} 

{— Eingabe: Modus —} 

{— Ausgabe: Keine —} 

PROCEDURE Textmode(mode : byte); 

VAR reg : registers; 

BEGIN 

IF ((mode >= 0) and (mode <=2)) THEN BEGIN 
reg.ah := $0E; 
reg.al := 1; 
reg.dl := mode; 

Intr(97,reg); 
modus := mode; 

CASE mode of 
0,2 : BEGIN 

xmax := 79; 
ymax :- 24; 

END; 

1 : BEGIN 

xmax := 39; 
ymax := 7; 

END; 

END; 

Wi ndow(0,0,xmax,ymax); 

CIrScr; 

END; 

END; 


{— MoveScreen: Bewegt Fensterauschnitt —} 

{— Eingabe: X- und Y-Koordinate der linken, oberen Ecke —} 
{— Ausgabe: Keine —} 

PROCEDURE MoveScreen(xpos,ypos : byte); 

VAR reg : registers; 
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BEGIN 

IF ((xpos+39<=xmax) and (ypos+7<=ymax) and 
(modus = 0) or (modus =2)) THEN BEGIN 
reg.ah := $10; 
reg.al := 1; 
reg.dl ;= xpos; 
reg.dh := ypos; 

Intr(97,reg); 

END; 

END; 

{— GetScreenPos: Holt Fenster-Position —} 

{— Eingabe: Keine —} 

{— Ausgabe: Fenster-Position —} 

FUNCTION GetScreenPos : word; 

VAR reg : registers; 

BEGIN 

reg.ah := $10; 
reg.al := 0; 

Intr(97,reg); 

GetScreenPos := reg.dx; 

END; 

{— ScrollScreen: Bewegt Fensterauschnitt —} 

{— Eingabe: Offset (Zeilen oder Spalten), Richtung —} 

{— Ausgabe: Keine —} 

PROCEDURE ScrollScreen(off»richtung : byte); 

VAR reg : registers; 
pos : word; 
xvirt.yvirt : byte; 

BEGIN 

pos := GetScreenPos; 
xvirt := pos and 255; 
yvirt := pos shr 8; 

IF (((modus = 0) or (modus =2)) 
and (((richtung = 1) and ((yvirt - off) >=0)) 

or ((richtung = 2) and ((yvirt + off + 7) <= ymax)) 

or ((richtung = 3) and ((xvirt - off) >=0)) 

or ((richtung = 4) and ((xvirt + off + 39) <= xmax)))) THEN BEGIN 

reg.ah := $11; 
reg.al := off; 
reg.dl := richtung; 

Intr(97,reg); 


CASE 

richtung of 



1 : 

: yvirt 

:= yvi 

rt 

- off; 

2 : 

: yvirt 

:= yvi 

rt 

+ off; 

3 : 

: xvirt 

:= xv i 

rt 

- off; 

4 : 

: xvirt 

:= xvi 

rt 

+ off; 


END; 

END; 

END; 
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{— GetScreenMode: Holt Bildschirmmodus 
{— Eingabe: Keine 
{— Ausgabe: Bildschirmmodus 


-} 

-} 

-} 
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FUNCTION GetScreenMode : byte; 
VAR reg : registers; 

BEGIN 

reg.ah := $0E; 
reg.al := 0; 

Intr(97,reg); 

GetScreenMode := reg.dl; 

END; 


{— Del Li ne: Löscht Bildschirmzeile 
{— Eingabe: Keine 
{— Ausgabe: Keine 

PROCEDURE Del Li ne(y:byte); 

VAR reg: registers; 

BEGIN 

IF ((y>=0) and (y+ylo<=yru)) THEN BEGIN 
IF y+ylo < yru THEN BEGIN 
reg.al := 1; 
reg.ch := y+ylo; 

END 

ELSE BEGIN 
reg.al := 0; 
reg.ch := yru; 

END; 

reg.ah := 6; 
reg.cl := xlo; 
reg.dh := yru; 
reg.dl := xru; 
reg.bh := 15; 

Intr(16,reg); 

END; 

END; 

{— InsLine: Fügt Bildschirmzeile ein 
{— Eingabe: Keine 
{— Ausgabe: Keine 

PROCEDURE InsLine(y:byte); 

VAR reg: registers; 

BEGIN 

IF ((y>=0) and (y+ylo<=yru)) THEN BEGIN 
IF y+ylo < yru THEN BEGIN 
reg.al := 1; 
reg.ch := y+ylo; 

END 

ELSE BEGIN 
reg.al := 0; 
reg.ch := yru; 


-) 

-} 

-} 


-} 

-} 

-} 
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END; 

reg.ah := 7; 
reg.cl := xlo; 
reg.dh := yru; 
reg.dl := xru; 
reg.bh := 15; 
Intr(16,reg); 
END; 

END; 


{— StoreBild: Rettet Bildschirmbereich auf Heap —} 

{— Eingabe: Linke obere (XI,Yl) und rechte untere —} 
{— (X2,Y2) Ecke des zu rettenden Bereichs —} 
{— Ausgabe: Pointer auf Heap —} 


FUNCTION StoreBild(xl,yl,x2,y2 : word) : pointer; 

VAR p :pointer; 
size : word; 

BEGIN 

IF ((xl >= 0) and (x2 <= xmax) and (yl >=0) and (y2<=ymax)) THEN BEGIN 
size := 10+((2*(x2-xl+l))*(y2-yl+l)); 

GetMem(p,size); 

save(Seg(p),0fs(p),size,xl,yl,x2,y2); 
storebild := p; 

END 

ELSE BEGIN 
storebild := NIL; 

END; 

END; 

{— LoadBild: Kopiert Daten in Bildschirm —} 

{— Eingabe: Pointer auf Daten —} 

{— Ausgabe: Keine —} 

PROCEDURE LoadBi1d(p:pointer); 

VAR size : word; 

BEGIN 

size := Load(Seg(p),0fs(p)); 

FreeMem(p,size); 

END; 

{— Portmenue: Aufbau und Auswertung eines Portfolio-Menüs —} 

{— Eingabe: Menüstruktur —} 

{— Ausgabe: Gewählter Menüpunkt (0=Abbruch) —} 

FUNCTION Portmenue(titel : String; xpos,ypos,anzahl,breite : byte; 

VAR punkte) : byte; 

VAR pl : pointer; 
i : byte; 
s : string; 
code : byte; 
punkt : byte; 

retx,rety,xl,xr,yo,yu : byte; 
flag : boolean; 
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TYPE name = array[1..23] of String; 
CONST 

leer : string[80] = ' 
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linie : string[80] 


+ 


BEGIN 

IF ((xlo+xpos+breite <= xru+1) and (ylo+ypos+anzahl < yru) and (breite*(anzahl—2)<=255)) 
THEN BEGIN 

s := ehr(201)+copy(1inie,l,breite-2)+chr(187)+leer; 

IF titel <>'' THEN BEGIN 
titel := Copy(titel,l,breite-2); 
punkt := Trunc((breite-length(titel))/2); 

FOR i:= 1 to 1ength(titel) DO BEGIN 
s[punkt+i] := titel [i]; 

END; 

END; 

FOR i:= 1 to anzahl DO BEGIN 

insert(chr(186)+chr(32)+Copy(name(punkte)[i],1,breite—3),s,1+(breite*i)); 
i nsert(ehr(186)+leer,s,breite*(i+l)); 

END; 

s := copy(s,1,breite*(anzahl+1))+chr(200)+copy(linie,l,breite-2)+chr(188); 

xl := xlo; 

xr := xru; 

yo := ylo; 

yu := yru; 

retx := WhereX; 4 

rety := WhereY; 

pl := StoreBild(xpos,ypos,xpos+breite-l,ypos+anzahl+l); 
window(xpos,ypos,xpos+breite-1,ypos+anzahl+1); 
write(s); 
punkt := 1; 
flag := false; 

REPEAT 

GotoXY(2,punkt); 
code := Ord(ReadKey); 

IF code<> 0 THEN BEGIN 
CASE code of 

13: flag := true; {RETURN} 

27: BEGIN 

flag:- true; {ESCAPE} 

punkt := 0; 

END; 

32..155 : BEGIN 

FOR i:= 1 to anzahl DO BEGIN {Buchstabe, Zahl etc.} 

s := Copy(name(punkte)[i] ,1,1); 

IF ((s[1] = chr(code)) or (s[1] = Upcase(chr(code)))) THEN BEGIN 
punkt := i; 
i := anzahl; 
flag := true; 

END; 

END; 

END; 
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END; 

END 

ELSE BEGIN 

code := Ord(ReadKey); 

CASE code of 

$50: IF punkt < anzahl THEN inc(punkt); {Cursor runter} 

$48: IF punkt > 1 THEN dec(punkt); {Cursor rauf} 

END; 

END; 

UNTIL (flag=true); 
xlo := xl; 
xru := xr; 
ylo := yo; 
yru := yu; 

LoadBild(pl); 

GotoXY(retx.rety); 
portmenue := punkt; 

END 

ELSE BEGIN 
portmenue := 0; 

END; 

END; 

{$F+} 

PROCEDURE NewExit; 

BEGIN 

ExitProc := SaveExit; 
int_16 := retint; 

END; 

{$F-} 

{-Beginn der Initialisierungsroutine-} 

BEGIN 


Speicher : = 0; 
retint := int_16; 

{Interrupt 10h retten} 

int_10 := retint; 
int_06 := Dseg; 
reg.ah := 0; 

{Portfolio-Interrupt initialisieren} 

Intr(97,reg); 
reg.ah := $0E; 

{Screen-Modus holen} 

reg.al := 0; 

Intr(97,reg); 
modus := reg.dl; 
Textmode(modus); 
MoveScreen(0,0); 

{Fenster in linke obere Ecke bringen} 

saveexit := ExitProc; 

{Neue Exit-Procedur setzen} 

ExitProc := ONewExit; 



END. 

Völlig namens- und aufrufkompatibel zu den Befehlen der Original-Unit 
sind die Routinen ClrScr, GotoXY , IrtsLine , DelLine , KeyPressed, ReadKey , 


{Neuer Exit-Code der Unit:} 

{Interrupt-Vektor 10h wieder auf alten Wert} 
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Delay, WhereX und WhereY, so daß ich zu diesen Befehlen keinen Kom¬ 
mentar abgeben muß. (Sie sind im Turbo-Pascal-Handbuch beschrieben.) 

Die Funktion Sound arbeitet ähnlich der Original-Routine, ihr muß jedoch 
zusätzlich die Dauer des Tons übergeben werden, da die entsprechende 
BIOS-Routine einen solchen Wert erwartet. Dafür existiert kein Befehl 
NoSound. 

Aufrufbeispiel: 

Sound(1000,50) 

Erzeugt für die Dauer von 50 Millisekunden einen Ton von 1000 Hz. 

Die Textmode- Funktion schaltet zwischen den drei möglichen Bildschirm¬ 
modi des Portfolio um, wobei drei Konstanten zur leichteren Verwendung 
definiert wurden: 

portfolio: Bildschirmmodus 40x25 Zeichen 
statisch : Bildschirmmodus 80x25 Zeichen (statisch) 
dynamisch : Bildschirmmodus 80x25 Zeichen (dynamisch) 

Aufrufbeispiel: 

Textmode (portfolio) 

Schaltet in den 40x25-Modus um und löscht den Bildschirm. 

Im Gegenzug wird durch die Funktion GetScreenMode der aktuelle Bild¬ 
schirmmodus geholt. Falls einer der beiden 80x25-Zeichen-Modi gesetzt 
wurde, kann der virtuelle Bildschirmausschnitt (40x25 Zeichen) durch die 
Befehle MoveScreen und ScrollScreen innerhalb des 80x25-Bildschirms 
bewegt werden. Der Unterschied zwischen beiden Routinen besteht darin, 
daß durch MoveScreen eine Bewegung zu einem absoluten Punkt vollzogen 
wird, während durch ScrollScreen eine Bewegung relativ zu der aktuellen 
Position durchgeführt wird. Dabei wurden vier Konstanten links, rechts, 
oben und unten für die Bewegungsrichtung definiert. 

1. MoveScreen(4,5) 

Die linke obere Ecke des virtuellen Bildschirmausschnitts wird in die 
Koordinaten 4 (x-Position) und 5 (y-Position) gelegt. 

2. ScrollScreen(4, links) 

Der virtuelle Bildschirmausschnitt wird um vier Zeichen nach links 
verschoben. 

Über die Funktion GetScreenPos kann man die aktuelle Position der linken 
oberen Ecke des virtuellen Bildschirmausschnitts auslesen: Dabei ist in 
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dem 16-Bit-Wort die x-Position in den Bits 8 bis 15 und die y-Position in 
den Bits 0 bis 7 abgelegt. 

Die beiden Befehle StoreBild und LoadBild dienen dazu, einen bestimmten 
Bildschirmausschnitt in eine Puffervariable abzuspeichem bzw. ihn aus 
dieser wieder in den Bildschirmspeicher zu kopieren. Die Funktionen sind 
sehr nützlich, wenn man mit Fenstern arbeiten möchte, nach deren Ver¬ 
schwinden der ursprüngliche Bildschirminhalt ja wieder zu sehen sein 
muß. 

Aufrufbeispiel: 

p := StoreBild(0,3,20,10) 

Der Bildschirminhalt zwischen den x-Koordinaten 0 und 20 sowie 
zwischen den y-Koordinaten 3 und 10 wird in die Pointervariable p abge¬ 
speichert. Durch den Aufruf LoadBild(p) wird dieser Bildschirmbereich 
wieder rekontruiert. 

Der mächtigste Befehl der neuen Unit befähigt Sie, in einem Durchlauf ein 
typisches Portfolio-Menü, wie es von den internen Applikationen ver¬ 
wendet wird, aufzubauen und auch gleich auszuwerten!. Der Portmenue- 
Routine müssen dabei folgende Parameter übergeben werden: 

- ein Menütitel (String) 

- die X- und Y-Position der linken, oberen Ecke des Menü-Windows 

- die Anzahl der Menüpunkte 

- die gewünschte Breite des Menü-Windows in Zeichen 

- ein Zeiger auf eine Struktur mit den Menüpunkten 

Aufrufbeispiel: 

CONST 

menue : array[1..3] of string[20] = ('Menüpunkt1','Menüpunkt2','Menüpunkt3 1 ); 

VAR 

punkt : byte; 

punkt := PORTMENUE('Demomenü',4,2,3,20,menue); 


Zunächst wird im aufrufenden Programm ein Feld menue mit den einzel¬ 
nen Menüpunkten angelegt (in unserem Fall drei). Die Variable punkt ent¬ 
hält den ausgewählten Menüpunkt. Wird durch die | Esel -Taste abge¬ 
brochen, enthält sie den Wert 0 zum Zeichen, daß kein Menüpunkt aus¬ 
gewählt wurde. Dann wird die Routine aufgerufen: Als Titel erscheint der 
Text Demomenü , die linke obere Ecke des aufgemachten Windows befindet 
sich an der Position (X=4, Y=2), das Window ist 20 Zeichen breit. 
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Anschließend wird noch die angelegte Struktur menue als Zeiger über¬ 
geben. Wenn das Menü aufgebaut ist, können Sie die Menüpunkte - wie 
von den Applikationen bekannt - auswählen: Entweder geben Sie den 
ersten Buchstaben des Menüpunktes ein oder bewegen den Cursor mit 
den Cursor-Tasten auf den gewünschten Menüpunkt, worauf er mit 
I Return | angewählt werden kann. Einen Abbruch erzwingt man mit | Esc 1 . 

Die Unit enthält zusätzlich zu den Pascal-Routinen noch drei Assembler- 
Prozeduren, die ich Ihnen nun vorstellen möchte. Diese Assembler-Proze¬ 
duren sind auf der Begleitdiskette in der Datei CRTASM.ASM zusammen¬ 
gefaßt: 


NEWINT.ASM : Neue Interrupt-Routine für Int 21h 
Autor: Frank Riemenschneider 


IDEAL ; Ideal-Modus des Turbo Assemblers einschalten 

MODEL TPASCAL ; Speichermodell = TURBO PASCAL wählen 

CODESEG 


FROC Scroll NEAR 


push dx 


mov ah,06 

;Nach oben scrollen 

mov al,01 

;Um eine Zeile 

mov ch,[ylo] 

;0bere Begrenzung 

mov cl,[xlo] 

;Linke Begrenzung 

mov dh,[yru] 

;Untere Begrenzung 

mov dl,[xru] 

;Rechte Begrenzung 

mov bh,15 

;Farbe 

int 16 

;Scrollen 

pop dx 


ret 


ENDP 


DATASEG 


extrn xru : byte; 


extrn xlo : byte; 


extrn ylo : byte; 


extrn yru : byte; 


CODESEG 


PROC Newlnt FAR 


PUBLIC Newlnt 


cmp ah,14 

;Interrupt-Funktion prüfen 

jnz altint 

;Keine Zeichenausgabe, dann alter Interrupt 


push bx 
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;Datensegment aus Speicherstellen 
;$0000:$0018/$0000:$0019 holen 
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push cx 
push si 
push di 
push es 
push dx 
push ds 
push ax 
mov ax,0 
mov ds,ax 
mov bx,[0024] 
mov ds,bx 

mov ah,03 
mov bh,00 
int 16 


pop ax 
push ax 


cmp al,10 
jnz noline 
cmp [yru],dh 
jna scrollen 
inc dh 

jmp noscroll 

noline: cmp al,13 
jnz normal 
mov dl,[xlo] 
jmp noscroll 


normal: 


cmp dl,[xru] 
jbe altezeile 
inc dh 

mov dl,[xlo] 
altezeile: 

cmp [yru],dh 
jnb noscroll 
dec dh 
scrollen: 

call scrol1 
noscrol1: 

mov bh,00 
mov ah,02 
int 16 


pop ax 
pop ds 
pop dx 
pop es 
pop di 
pop si 
pop cx 


;Cursorposition holen 


;Zeichencode holen 


;Linefeed? 

;Untere Begrenzung erreicht? 
;Ja, scrollen 
;Zeile erhöhen 
;Sonderzeichen Ende 

;Return? 

;Cursor auf linke Begrenzung 
;Sonderzeichen Ende 


;Rechte Fensterbegrenzung? 

;Ja, Zeile erhöhen 
•»Cursor auf linke Begrenzung 

;unterer Fensterrand erreicht? 
;Nein, noch nicht! 


•»Fenster um eine Zeile nach oben schieben 


;Cursor positionieren 
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pop bx 



cmp al,13 
jz newexit 

;Bei RETURN oder 


cmp al,10 
jz newexit 

;Linefeed keinen alten Interrupt! 

altint: 


int 10 

•»Alten Interrupt aufrufen 

newexit 

i ret 



ENDP 


SAVE.ASM : Speichert Bildschirmausschnitt in Pointer-Variable 
Autor: Frank Riemenschneider 


PROC Save FAR spseg 
PUBLIC Save 


: word, spofs : word, groesse : word, xl : word, yl : word, x2 : word, 

y2 : word 


push ax 
push bx 
push cx 
push si 
push di 
push ds 
push es 


mov ax,[spseg] 
mov ds,ax 
mov di,[spofs] 
mov ax,[di+2] 
mov es,ax 
mov di,[di] 
mov ax,[groesse] 


Speicheradresse Pointer laden 
Segment Speicherbereich holen 

;0ffset Speicherbereich holen 
;Größe reservierter Bereich 


cid 

stosw 


;immer inkrementieren 
•»speichern 


ax,[yl] 

bx,160 

bx 

Startadresse Video-RAM berechnen: 

bx,[xl] 
bx,l 

;Yl*160+Xl*2 

ax,bx 
si ,ax 

;= Offset 

ax,45056 
ds,ax 

Segmentadresse Video-RAM 

ax,[xl] 



stosw 
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mov ax,[yl] 
stosw 

mov ax,[x2] 
sub ax,[xl] 
inc ax 
mov bx,ax 
stosw 

mov ax, [y2] 
sub ax,[yl] 
inc ax 
stosw 
mov cx,ax 

Loopl: 
push cx 
push si 

mov cx,bx 
rep movsw 

pop ax 
add ax,160 
mov si,ax 

pop cx 
loop Loopl 

pop es 
pop ds 
pop di 
pop si 
pop cx 
pop bx 
pop ax 
ret 

ENDP 

; LOAD.ASM : Lädt Bildschirmdaten aus Pointer-Variablen ein 

9 

; Autor: Frank Riemenschneider 

PROC Load FAR speseg : word, speofs : word 
PUBLIC Load 
push bx 
push cx 
push si 
push di 
push ds 
push es 

mov ax,[speseg] 
mov ds,ax 

mov si,[speofs] ;Speicheradresse Pointer laden 


;(x2-xl+l) Bytes in X-Richtung 

;merken und 
jabspeichern 

j(y2-yl+l) Bytes in Y-Richtung 

jabspeichern 

jAls Zähler setzen 


jAnzahl X-Bytes holen 
jSpeicherworte kopieren 


jNeue Zeile anfangen 


jNächste Zeile 
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mov ax,[si+2] 

;Segment Speicherbereich holen 

i—i 

c/> 

1_1 

«/) 

> 

O 

E 

;0ffset Speicherbereich holen 

mov ds,ax 


cid 


lodsw 

;Größe reservierter Speicherbereich holen 

push ax 

;und merken 

lodsw 

;x-Koordinate holen 

mov bx,ax 


lodsw 

;y-Koordinate holen 

mov cx,160 


mul cx 

;Startadresse Video-RAM berechnen: 

shl bx,l 

;Yl*160+Xl*2 

add ax,bx 


mov di,ax 

;= Offset 

mov ax,45056 


mov es,ax 

;Segmentadresse Video-RAM 

lodsw 

;Anzahl x-Bytes pro Zeile holen 

mov bx,ax 

;A1s Zähler setzen 

lodsw 

;Anzahl y-Bytes pro Zeile holen 

mov cx,ax 


Loop2: 


push cx 


push di 


mov cx,bx 

;Anzahl x-Bytes holen 

rep movsw 

;Speicherworte kopieren 

pop ax 


add ax,160 

;Neue Zeile anfangen 

mov di,ax 


pop cx 


loop Loop2 

;Nächste Zeile 

mov ah,18 

;Bildschirm refreshen 

int 97 


pop ax 

;Bereichsgröße zurückliefern 

pop es 


pop ds 


pop di 


pop si 


pop cx 


pop bx 


ret 



ENDP 


END 
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Das größte Problem besteht in der Window-Programmierung. Hierzu muß 
man wissen, daß Turbo Pascal für die Bildschirmausgaben mit Hilfe der 
Write -Prozedur eine Funktion des Interrupt $21 aufruft, nämlich die 
Funktion 14. Diese hat die Eigenschaft, daß sie den Text immer bis zum 
rechten Bildschirmrand ausgibt, dann den Cursor auf die x-Position Null 
stellt, die Zeile erhöht und dann mit der Textausgabe fortfährt. So sollte es 
auch sein, wenn da nicht die Windows wären. 

Ein Window ist eine rein logische Definition eines Bildschirmbereichs, in 
dem alle weiteren Ausgaben zu erfolgen haben. Die Zeichenausgaberoutine 
des Interrupt $21 interessiert das aber natürlich herzlich wenig, was wir 
definieren, so daß sie fleißig über unsere Window-Grenzen hinwegschreibt. 
Uns bleiben im Prinzip nur zwei Möglichkeiten: Entweder programmiert 
man eine völlig neue Write -Routine oder man lenkt den Interrupt $21 auf 
eine eigene Routine um, die in der Lage ist, die Window-Grenzen zu 
respektieren. 

Die erste Variante verbietet sich, wenn man bedenkt, daß mit Hilfe der 
Write -Routine auch Dateien aller Art beschrieben werden können - oder 
möchten Sie vielleicht das komplette Datei-Handling neu programmieren, 
so daß es zudem auch noch zu den Prozeduren Assign , Reset etc. kompa¬ 
tibel bleibt? Ich kann mir dieses ersparen, so daß wir auf die zweite Vari¬ 
ante zurückgreifen müssen. 

In der Routine Newlnt wird zunächst geprüft, ob die Funktion 14 des 
Interrupt $21 aufgerufen wurde. Ist dies nicht der Fall, wird in die alte 
Routine gesprungen, die auf einen anderen, beim Portfolio unbenutzten 
Interrupt umgeleitet wurde (INT 10). In der neuen Routine für die Funk¬ 
tion 14 wird nun Zeichen für Zeichen ausgegeben, wobei ständig die 
Window-Grenzen überprüft werden. Diese sind in den Variablen Xlo (x- 
Koordinate linke Windowbegrenzung), Ylo (y-Koordinate obere Win¬ 
dowbegrenzung), Xru (x-Koordinate rechte Windowbegrenzung) und Yru 
(y-Koordinate untere Windowbegrenzung) gespeichert. Ist das Zeilenende 
erreicht, wird der Cursor auf die linke Windowgrenze gesetzt und die 
nächste Zeile begonnen. Es ist jedoch ein Sonderfall zu beachten: Wird die 
untere Windowgrenze erreicht, muß das Fenster um eine Zeile nach oben 
gerollt werden, damit unten Platz für die neue Zeile geschaffen wird 
(Routine Scrolt). 

Die Prozeduren Load und Save sind aus Geschwindigkeitsgründen pro¬ 
grammiert worden und dienen zum Datentransfer zwischen dem Bild¬ 
schirminhalt (Video-RAM) und der Puffervariablen. Zwar hätte man dies 
auch in Pascal programmieren können, die hier verwendeten String- 
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Befehle des 8088-Prozessors sind dem Pascal-Code jedoch um ein viel¬ 
faches überlegen. 

Zum Abschluß möchte ich Ihnen noch ein kleines Demo-Programm für die 
neue Unit vorstellen, die mit der Anweisung 

uses portcrt; 

in Ihre Programme eingebunden werden kann. Bei der Demonstration der 
Menüs werden Sie bezüglich Ihres Wissens über die beste deutsche 
Country-Band, Truck-Stop aus Maschen, befragt. Je nachdem, ob Sie die 
Fragen richtig beantworten können, wird ein entsprechender Kommentar 
ausgegeben. 


{Demoprogramm für Portfolio-CRT-Unit 
written by Truck-Stop-Fan Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 

{$M 2000,0,10000} 

USES dos,Portcrt; 

VAR i,j : word; 

C0NST 

menuel : array[1..6] of string = ('Erich Doll','Teddy Ibing','Lucius Reichling', 

'Cisco Berndt','Knut Bewersdorff','Uwe Lost'); 

menue2 : array[1..7] of string = ('Arizona','Keep it Country...','Nicht zu bremsen', 

'Lousiana Ladies','Zu Hause','Alles Klar','In Concert'); 
menue3 : array[1..4] of string - ('Stillhorn','Maschen','Ahrensburg', 

'Ottmarschen'); 

s : string = 'Dies ist eine Demonstration des dynamischen Bildschirmmodus (80*25)!'; 

BEGIN 

Textmode(statisch); 

writeln; 

writeln; 

writelnCDieses ist eine Demonstration des statischen', 

' Bildschirm-Modus (80*25)!'); 

F0R i:= 1 to 40 DO BEGIN 
ScrollScreen(l,rechts); 

Delay(400); 

END; 

MoveScreen(0,0); 

GotoXY(0,7); 

writelnCDas Fenster muß nachgeführt werden!'); 

F0R i:= 1 to 6 DO BEGIN 
Scrol lScreen(l,unten); 

Delay(400); 
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END; 

MoveScreen(0,0); 

ClrScr; 

FOR i:= 1 to 10 DO BEGIN 

writeln('Als nächstes folgt eine Window-Demonstration 
END; 

window(10,2,25,6); 

ClrScr; 

write('Dieser String wurde an der Windowgrenze abgeschnitten!'); 
Delay(4000); 

InsLine(2); 

Delay(4000); 

DelLine(2); 

Delay(4000); 
window(0,0 f xmax,ymax); 

i := portmenueC Musiker ',10,0,6,20,menuel); 

ClrScr; 

writeln('Ihr Lieblingsmusiker : 1 ,menuel[i]); 

Delay(3000); 

Textmode(dynamisch); 

writeln; 

writeln; 

FOR i:= 1 to length(s) DO BEGIN 
write(copy(s,i ,1)); 

Delay(400); 

END; 

MoveScreen(0,0); 

GotoXY(0,7); 

FOR i: = 1 to 15 DO BEGIN 

writeln('Zeile ',i,' wird automatisch nachgeführt!'); 

Delay(400); 

END; 

MoveScreen(0,0); 

ClrScr; 

FOR i:= 1 to 10 DO BEGIN 

writeln('Als nächstes folgt eine Window-Demonstration :'); 

END; 

window(10,2,25,6); 

CIrScr; 

write('Dieser String wurde an der Windowgrenze abgeschnitten!'); 
Delay(4000); 

InsLine(2); 

Delay(4000); 

Del Li ne(2); 

Delay(4000); 
window(0,0,xmax,ymax); 

i := portmenueC Platte ',40,0,7,20,menue2); 

ClrScr; 

writeln('Ihre Lieblingsplatte : ',menue2[i]); 

Delay(4000); 
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Textmode(portfol io); 

writeln; 

writeln; 

writeln('Im Portfolio-Modus stehen nur 40*25 Zeichen zur Verfügung, so daß', 
' die Zeile nach 40 Zeichen abgeschnitten wird!'); 

Delay (4000); 

CIrScr; 

F0R i:= 1 to 6 DO BEGIN 

writeln('Auch hier können Windows erzeugt werden'); 

END; 

window(2,2,25,6); 

ClrScr; 

write('Dieser String wurde an der Windowgrenze abgeschnitten!'); 

Delay(4000); 

InsLine(l); 

Delay(4000); 

DelLine(l); 

Delay(4000); 
window(0,0,xmax,ymax); 

CIrScr; 

write('Welcher Ort ist Seevetal 3?'); 
i := portmenue(' Raten ',3,l,4,15,menue3); 

ClrScr; 

IF i =2 THEN BEGIN 

writeln('Wunderbar, Sie sind ein echter Cowboy!'); 

END 

ELSE BEGIN 

writeln('Falsch, Sie werden nie ein Country-Fan!'); 

END; 

END. 


2.5 Eine GRAPH-Unit für den Portfolio 

Als ich meinem Stammhändler COM-DATA in Hannover erzählte, daJ3 man 
auf dem Portfolio auch Grafikprogrammierung realisieren könne, nickte 
dieser zwar beifällig, an seinem Gesichtsausdruck konnte man jedoch er¬ 
kennen, daß er glaubte, ich müsse wohl in die Klapsmühle eingewiesen 
werden. Nun, irgendwie ist mir das auch verständlich, denn in dem 
Bedienerhandbuch des Rechners wird nicht ein einziges Wort über den 
Grafikmodus verloren. Da es sich auch noch um einen relativ kleinen 
LCD-Bildschirm handelt, kann man nicht unbedingt von der Grafikfähig¬ 
keit des Computers ausgehen. 
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Da die GRAPH-Unit von Turbo Pascal aufgrund des inkompatiblen Grafik¬ 
modus nicht läuft, muß man auch hier in den sauren Apfel beißen und 
eine eigene Unit erstellen. Aus Geschwindigkeitsgründen war es dabei 
erforderlich, alle elementaren Grafikroutinen in Assembler zu program¬ 
mieren, wodurch der Aufwand zwar deutlich anstieg, die Ergebnisse dafür 
aber zufriedenstellen können. Die eigentlichen Grafikbefehle sind wieder 
namens- und aufrufkompatibel zu den Befehlen der Original-Unit, so daß 
es in den meisten Fällen reichen wird, die USES-Anweisung auszu¬ 
tauschen. Im einzelnen wurden folgende Grafikroutinen übernommen: 

Are, Bar, Bar3D, Box, Circle, ClearDevice, CloseGraph, DrawPoly, Ellipse, 
FillEllipse, FillPoly, FloocUFill, GetColor, GetPixel, InitGraph, Line, LineRel, 
LineTo, MoveRel, MoveTo, OntTextXY, PieSlice, PutPixel, Rectangle, Sector, 
SetColor, SetFillStyle, SetTextStyle, TextPixel 

Bei den folgenden Befehlen sind Abweichungen zu denen der Original-Unit 
notwendig geworden: 

Bei OutTextXY können nur ASCII-Codes bis einschließlich 127 ausgegeben 
werden. Da kein ROM-Zeichensatz existiert, mußten diese Codes mühsam 
per Hand zusammengebastelt werden. Da ab Code 128 fast nur noch 
Grafikzeichen kommen, lohnt sich meiner Meinung nach der Zeitaufwand 
nicht. 

Der Befehl SetTextStyle besitzt eine etwas andere Aufrufsyntax: Der erste 
Original-Parameter (font) existiert zwar ebenfalls, hat jedoch keine Wir¬ 
kung auf den Zeichensatz. Für den Parameter direction sind Werte von 1 
bis 12 erlaubt, wobei das Aussehen der Zeichen wie folgt beeinflußt wird: 

1: Zeichen nicht gekippt, keine Kursivschrift 
2: Zeichen nicht gekippt, Kursivschrift nach links 
3: Zeichen nicht gekippt, Kursivschrift nach rechts 
4: Zeichen um 180° gekippt, keine Kursivschrift 
5: Zeichen um 180° gekippt, Kursivschrift nach links 
6: Zeichen um 180° gekippt, Kursivschrift nach rechts 
7: Zeichen um 90° gekippt, keine Kursivschrift 
8: Zeichen um 90° gekippt, Kursivschrift nach links 
9: Zeichen um 90° gekippt, Kursivschrift nach rechts 
10: Zeichen um 270° gekippt, keine Kursivschrift 
11: Zeichen um 270° gekippt, Kursivschrift nach links 
12: Zeichen um 270° gekippt, Kursivschrift nach rechts 
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Statt eines weiteren Parameters bei der Original-Unit, der dort die 
Zeichengröße gemeinsam für x- und y-Richtung festlegt, folgen bei der 
Portfolio-Unit noch zwei, die die Zeichengröße in x- und y-Richtung 
getrennt festlegen. 

Aufrufbeispiel: SetTextStyle(0,3,2,1) 

Der folgende Text wird rechtskursiv ausgegeben, wobei in x-Richtung eine 
Vergrößerung um Faktor 2 und in y-Richtung keine Vergrößerung vor¬ 
genommen wird. 

Aus Kompatibilitätsgründen wurde die Routine InitGraph original über¬ 
nommen. Das bedeutet, daß ein Pfadname für einen Grafiktreiber (im 
Original .BGI) angegeben werden muß. Da die Portfolio-Unit aber gar 
keinen Treiber benötigt, können Sie eingeben, was Sie wollen. 

Die Tabellen adrtab und costab werden von der Textpixel- bzw. Ellipsen- 
Assembler-Routine benötigt. Bedingt durch das Speichermodell akzeptiert 
der Turbo Assembler keine initialisierten Variablen im Assembler-Modul, 
so daß diese im Pascal-Programm zur Verfügung gestellt werden müssen. 


UNIT portgraf; 

{written by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 

{$M 5000,0,0} 

{$L a:portgraf.obj} 

INTERFACE 

PR0CEDURE SetColor (Color : WORD); 

PR0CEDURE CloseGraph; 

PR0CEDURE InitGraph(VAR driver : integer; VAR mode : integer; path : String); 
PR0CEDURE InitGraphic; 

PR0CEDURE PutPixel (x, y : Integer; Color : word); 

PR0CEDURE Line (xl, yl, x2, y2 : Integer); 

PR0CEDURE Rectangle (xl, yl, x2, y2 : Integer); 

PROCEDURE Bar (xl, yl, x2, y2 : Integer); 

PR0CEDURE Circle (xm, ym : Integer; Radius : WORD); 

PROCEDURE Ellipse (xm, ym : Integer; AnfWinkel, EndWinkel, XRadius, YRadius : WORD); 
PROCEDURE Are (xm, ym : Integer; AnfWinkel, EndWinkel, Radius : WORD); 

PROCEDURE ClearDevice; 

PROCEDURE Plot (x, y : WORD); 

PROCEDURE Box (xl, yl, x2, y2 : WORD); 

PROCEDURE Curve (xm, ym, xr, yr, AnfWinkel, EndWinkel : WORD); 

PROCEDURE FloodFill (x,y : Integer; border : word); 

PROCEDURE Fi 11 Ellipse (xm, ym : Integer; XRadius, YRadius : word); 

PROCEDURE SetFi 11 Style (muster,color : word); 
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FUNCTION GetColor : word; 

FUNCTION GetPixel (x, y : Integer) : word; 

FUNCTION TestPixel (x,y : word) : word; 

PROCEDURE Slice (xm, ym, xr, yr, AnfWinkel, EndWinkel : WORD); 

PROCEDURE Sector (xm,ym: Integer; AnfWinkel, EndWinkel, XRadius, YRadius : word) 
PROCEDURE PieSlice (xm,ym: Integer; AnfWinkel, EndWinkel, Radius: word); 
PROCEDURE Text (x, y, TextSeg, TextOfs : WORD); 

PROCEDURE OutTextXY(x,y : Integer; TextString : STRING); 

PROCEDURE SetTextStyle (font,direction,Sizex,Sizey : word); 

PROCEDURE Bar3D(xl,yl,x2,y2:integer; depthiword; toprboolean); 

PROCEDURE DrawPoly(NumPoints : word; VAR PolyPoints); 

PROCEDURE Fi 11Poly(NumPoints : word; VAR PolyPoints); 

PROCEDURE MoveRel(dx,dy : integer); 

PROCEDURE MoveTo(x,y : integer); 

PROCEDURE LineRel(dx,dy : integer); 

PROCEDURE LineTo(x,y : integer); 

PROCEDURE Fill(x,y: integer; border : word); 

TYPE 

PointType = record 

x,y : word; 

END; 

CONST 

{ Tabelle der Cosinus-Werte } 


costab 

: ARRAY | 

[0.. 

395] OF 

BYTE 

= 









( o, u 

2, 

3, 4. 

, 5, 

, 6, 

7, 8 

, 9, 

10, 

11, 

12, 

, 13, 

14, 

15, 

16, 

17, 

18 

19, 

20, 

. 21, 

22, 

, 23 

, 24, 

25, 

26, 

27, 

28, 

, 29, 

30, 

31, 

32, 

33, 

34 

35, 

36, 

, 37, 

38, 

, 39 

, 40, 

41, 

42, 

43, 

44, 

, 45, 

46, 

47, 

48, 

49, 

50 

51, 

52, 

, 53, 

54, 

, 55 

, 56, 

57, 

58, 

59, 

60, 

, 61, 

62, 

63, 

64, 

65, 

66 

67, 

68, 

69, 

70, 

, 71 

, 72, 

73, 

74, 

75, 

76, 

, 77, 

78, 

79, 

80, 

81, 

82 

83, 

84, 

, 85, 

86, 

, 86 

, 87, 

88, 

89, 

90, 

91, 

, 92, 

93, 

94, 

95, 

96, 

97 

98, 

99, 

100, 

, ioi, : 

102, 

102, 

103, 

, 104, 105, 

106, 

107 

, 108, 109, 


110, 

111, 

112, 

113, 

114, 

114, 

115, 

116, 

117, 

118, 

119, 

120, 

121, 

122, 

122, 

123, 

124, 

125, 

126, 

127, 

128, 

129, 

130, 

130, 

131, 

132, 

133, 

134, 

135, 

136, 

136, 

137, 

138, 

139, 

140, 

141, 

142, 

142, 

143, 

144, 

145, 

146, 

147, 

147, 

148, 

149, 

150, 

151, 

152, 

152, 

153, 

154, 

155, 

156, 

156, 

157, 

158, 

159, 

160, 

160, 

161, 

162, 

163, 

163, 

164, 

165, 

166, 

167, 

167, 

168, 

169, 

170, 

170, 

171, 

172, 

173, 

173, 

174, 

175, 

176, 

176, 

177, 

178, 

179, 

179, 

180, 

181, 

181, 

182, 

183, 

184, 

184, 

185, 

186, 

186, 

187, 

188, 

188, 

189, 

190, 

190, 

191, 

192, 

192, 

193, 

194, 

194, 

195, 

196, 

196, 

197, 

198, 

198, 

199, 

200, 

200, 

201, 

201, 

202, 

203, 

203, 

204, 

204, 

205, 

206, 

206, 

207, 

207, 

208, 

209, 

209, 

210, 

210, 

211, 

212, 

212, 

213, 

213, 

214, 

214, 

215, 

215, 

216, 

216, 

217, 

218, 

218, 

219, 

219, 

220, 

220, 

221, 

221, 

222, 

222, 

223, 

223, 

224, 

224, 

225, 

225, 

226, 

226, 

227, 

227, 

227, 

228, 

228, 

229, 

229, 

230, 

230, 

231, 

231, 

231, 

232, 

232, 

233, 

233, 

234, 

234, 

234, 

235, 

235, 

235, 

236, 

236, 

237, 

237, 

237, 

238, 

238, 

238, 

239, 

239, 

240, 

240, 

240, 

241, 

241, 

241, 

242, 

242, 

242, 

243, 

243, 

243, 

243, 

244, 

244, 

244, 

245, 

245, 

245, 

245, 

246, 

246, 

246, 

247, 

247, 

247, 

247, 

248, 

248, 

248, 

248, 

248, 

249, 

249, 

249, 

249, 

250, 

250, 

250, 

250, 

250, 

251, 

251, 

251, 

251, 

251, 

251, 

252, 

252, 

252, 

252, 

252, 

252, 

253, 

253, 

253, 

253, 

253, 

253, 

253, 

253, 

254, 

254, 

254, 

254, 
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254, 254, 254, 254, 254, 254, 254, 254, 255, 255, 255, 255, 255, 

255, 255, 255, 255, 255, 255, 255, 255, 255, 255, 255 ); 

(Bit-Daten des Zeichensatzes} 


daten : array[0..767] of byte = 


(ASCII 

0} 

(0,0,0,0,0,0, 

(ASCII 

1} 

62,85,81,85,62,0, 

(ASCII 

2} 

62,107,111,107,62,0, 

(ASCII 

3} 

30,62,124,62,30,0, 

(ASCII 

4} 

8,28,62,28,8,0, 

(ASCII 

5} 

28,95,103,95,28,0, 

(ASCII 

6} 

28,94,127,94,28,0, 

(ASCII 

7} 

0,0,24,24,0,0, 

(ASCII 

8} 

255,255,231,231,255,255 

(ASCII 

9} 

0,24,36,36,24,0, 

(ASCII 

10} 

255,231,219,219,231,255 

(ASCII 

11} 

48,72,77,75,55,0, 

(ASCII 

12} 

6,41,121,41,6,0, 

(ASCII 

13} 

96,96,63,5,7,0, 

(ASCII 

14} 

96,127,5,53,63,0, 

(ASCII 

15} 

42,28,119,28,42,0, 

(ASCII 

16} 

127,62,28,8,8,0, 

(ASCII 

17} 

8,8,28,62,127,0, 

(ASCII 

18} 

20,54,127,54,20,0, 

(ASCII 

19} 

0,95,0,95,0,0, 

(ASCII 

20} 

6,9,127,1,127,0, 

(ASCII 

21} 

0,74,85,85,41,0, 

(ASCII 

22} 

112,112,112,112,112,0, 

(ASCII 

23} 

84,118,127,118,84,0, 

(ASCII 

24} 

4,6,127,6,4,0, 

(ASCII 

25} 

16,48,127,48,16,0, 

(ASCII 

26} 

8,8,42,28,8,0, 

(ASCII 

27} 

8,28,42,8,8,0, 

(ASCII 

28} 

60,32,32,32,0,0, 

(ASCII 

29} 

8,28,8,28,8,0, 

(ASCII 

30} 

32,56,62,56,32,0, 

(ASCII 

31} 

2,14,62,14,2,0, 

(ASCII 

32} 

0,0,0,0,0,0, 

(ASCII 

33} 

0,0,95,0,0,0, 

(ASCII 

34} 

0,3,0,3,0,0, 

(ASCII 

35} 

20,127,20,127,20,0, 

(ASCII 

36} 

36,42,107,42,18,0, 

(ASCII 

37} 

35,19,8,100,98,0, 

(ASCII 

38} 

54,73,85,34,80,0, 

(ASCII 

39} 

0,0,5,3,0,0, 

(ASCII 

40} 

0,28,34,65,0,0, 

(ASCII 

41} 

0,65,34,28,0,0, 

(ASCII 

42} 

20,8,62,8,20,0, 

(ASCII 

43} 

8,8,62,8,8,0, 

(ASCII 

44} 

0,0,80,48,0,0, 

(ASCII 

45} 

8,8,8,8,8,0, 

(ASCII 

46} 

0,0,96,96,0,0, 

(ASCII 

47} 

32,16,8,4,2,0, 
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{ASCII 

48} 

62,81,73,69,62,0, 

{ASCII 

49} 

0,66,127,64,0,0, 

{ASCII 

50} 

66,97,81,73,70,0, 

{ASCII 

51} 

33,65,69,75,49,0, 

{ASCII 

52} 

24,20,18,127,16,0, 

{ASCII 

53} 

39,69,69,69,57,0, 

{ASCII 

54} 

60,74,73,73,48,0, 

{ASCII 

55} 

1,1,121,5,3,0, 

{ASCII 

56} 

54,73,73,73,54,0, 

{ASCII 

57} 

6,73,73,41,30,0, 

{ASCII 

58} 

0,0,54,54,0,0, 

{ASCII 

59} 

0,0,86,54,0,0, 

{ASCII 

60} 

0,8,20,34,65,0, 

{ASCII 

61} 

20,20,20,20,20,0, 

{ASCII 

62} 

65,34,20,8,0,0, 

{ASCII 

63} 

2,1,81,9,6,0, 

{ASCII 

64} 

62,65,73,85,14,0, 

{ASCII 

65} 

126,17,17,17,126,0, 

{ASCII 

66} 

127,74,74,74,54,0, 

{ASCII 

67} 

62,65,65,65,34,0, 

{ASCII 

68} 

127,65,65,34,28,0, 

{ASCII 

69} 

127,73,73,73,65,0, 

{ASCII 

70} 

127,9,9,9,1,0, 

{ASCII 

71} 

62,65,81,81,114,0, 

{ASCII 

72} 

127,8,8,8,127,0, 

{ASCII 

73} 

0,65,127,65,0,0, 

{ASCII 

74} 

32,64,65,63,1,0, 

{ASCII 

75} 

127,8,20,34,65,0, 

{ASCII 

76} 

127,64,64,64,64,0, 

{ASCII 

77} 

127,2,12,2,127,0, 

{ASCII 

78} 

127,4,8,16,127,0, 

{ASCII 

79} 

62,65,65,65,62,0, 

{ASCII 

80} 

127,9,9,9,6,0, 

{ASCII 

81} 

62,65,81,33,94,0, 

{ASCII 

82} 

127,9,25,41,70,0, 

{ASCII 

83} 

38,73,73,73,50,0, 

{ASCII 

84} 

1,1,127,1,1,0, 

{ASCII 

85} 

63,64,64,64,63,0, 

{ASCII 

86} 

31,32,64,32,31,0, 

{ASCII 

87} 

127,32,24,32,127,0, 

{ASCII 

88} 

99,20,8,20,99,0, 

{ASCII 

89} 

7,8,120,8,7,0, 

{ASCII 

90} 

97,81,73,69,67,0, 

{ASCII 

91} 

0,127,65,65,0,0, 

{ASCII 

92} 

2,4,8,16,32,0, 

{ASCII 

93} 

0,65,65,127,0,0, 

{ASCII 

94} 

4,2,1,2,4,0, 

{ASCII 

95} 

128,128,128,128,128,128, 

{ASCII 

96} 

0,3,5,0,0,0, 

{ASCII 

97} 

32,84,84,84,120,0, 

{ASCII 

98} 

127,72,68,68,56,0, 

{ASCII 

99} 

56,68,68,68,32,0, 

{ASCII 

100} 

56,68,68,72,127,0, 

{ASCII 

101} 

56,84,84,84,88,0, 
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(ASCII 

102) 

8,126,9,9,2,0, 

(ASCII 

103} 

8,84,84,84,60,0, 

(ASCII 

104} 

127,8,4,4,120,0, 

(ASCII 

105} 

0,68,125,64,0,0, 

(ASCII 

106} 

32,64,68,61,0,0, 

(ASCII 

107} 

127,32,16,40,68,0, 

(ASCII 

108} 

0,65,127,64,0,0, 

(ASCII 

109} 

124,4,24,4,120,0, 

(ASCII 

110} 

124,8,4,4,120,0, 

(ASCII 

111} 

56,68,68,68,56,0, 

(ASCII 

112} 

124,20,20,20,8,0, 

(ASCII 

113} 

8,20,20,20,124,0, 

(ASCII 

114} 

124,8,4,4,8,0, 

(ASCII 

115} 

72,84,84,84,36,0, 

(ASCII 

116} 

4,63,68,68,32,0, 

(ASCII 

117} 

60,64,64,32,120,0, 

(ASCII 

118} 

28,32,64,32,28,0, 

(ASCII 

119} 

60,64,48,64,60,0, 

(ASCII 

120} 

68,40,16,40,68,0, 

(ASCII 

121} 

76,80,80,80,60,0, 

(ASCII 

122} 

68,100,84,76,68,0, 

(ASCII 

123} 

0,8,62,65,65,0, 

(ASCII 

124} 

0,0,119,0,0,0, 

(ASCII 

125) 

65,65,62,8,0,0, 

(ASCII 

126} 

2,1,3,2,1,0, 

(ASCII 

127} 

96,80,72,80,96,0); 

{Tabelle mit Zeilenanfängen des Vide 


adrtab : ARRAY [0..63] OF WORD = 

(0, 30, 60, 90, 120, 150, 180, 210, 240, 270, 300, 330, 360, 390, 420, 

450, 480, 510, 540, 570, 600, 630, 660, 690, 720, 750, 780, 810,840, 

870, 900, 930, 960, 990, 1020, 1050, 1080, 1110, 1140, 1170, 1200, 1230, 

1260, 1290, 1320, 1350, 1380, 1410, 1440, 1470, 1500, 1530, 1560, 1590, 1620, 1650,1680, 
1710, 1740, 1770, 1800, 1830, 1860, 1890); 

VAR 

i, Farbe,fillmuster,fillcolor,ArcStartX, ArcStartY, ArcEndX, ArcEndY : WORD; 
zu, zl, su, sl, zch, spt, xver, yver : integer; 

gcursorx, gcursory : integer; 

IMPLEMENTATION 


{$F+} { Die Assembler-Routinen müssen als FAR-Routinen 

eingebunden werden } 

PROCEDURE InitGraphic; EXTERNAL; 

PROCEDURE CloseGraph; EXTERNAL; 

PROCEDURE Plot; EXTERNAL; 

PROCEDURE Line; EXTERNAL; 

PROCEDURE Box; EXTERNAL; 

PROCEDURE Bar; EXTERNAL; 

PROCEDURE Curve; EXTERNAL; 

PROCEDURE Slice; EXTERNAL; 

PROCEDURE Text; EXTERNAL; 


105 




Kapitel 2 


PROCEDURE Fi 11; EXTERNAL; 

FUNCTION TestPixel; EXTERNAL; 

{$F-} 

{Initialisiert Grafikmodus und schreibt Zeichensatz ins Video-RAM} 

PROCEDURE InitGraph(VAR driver : integer; VAR mode : integer; path : string); 
VAR i : word; 

BEGIN 

InitGraphic; 

FOR i:= 0 to 767 DO BEGIN 

Mem[$B000:$07D0+i] := daten[i]; 

END; 

END; 

{Setzt einen Pixel in der angegebenen Farbe} 

PROCEDURE PutPixel (x, y : Integer; Color : word); 

BEGIN 

Farbe := Color; 

Plot(x, y); 

END; 

{Testet einen Pixel auf seine Farbe} 

FUNCTION GetPixel (x, y : Integer) : WORD; 

BEGIN 

GetPixel := TestPixel(x,y); 

END; 

{Setzt die Zeichenfarbe für die weiteren Grafikbefehle, 
erlaubte Werte sind 0 und 1} 

PROCEDURE SetColor (Color : word); 

BEGIN 

Farbe := Color; 

END; 

{Zeichnet nicht gefülltes Rechteck} 

PROCEDURE Rectangle (xl, yl, x2, y2 : Integer); 

BEGIN 

Box (xl, yl, x2, y2); 

END; 

{Wandelt Winkel in Format der Original TP-Graph-Unit um} 

PROCEDURE Winkel (VAR AnfWinkel:word; VAR EndWinkel : word); 

VAR 

aw,ew : integer; 
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BEGIN 

EW := 90-AnfWinkel; 

AW := 90-EndWinkel; 

IF AW < 0 THEN AW := 360+AW; 

IF EW < 0 THEN EW := 360+EW; 

AnfWinkel := AW; 

EndWinkel := EW; 

END; 

{Zeichnet kompletten Kreis} 

PROCEDURE Circle (xm, ym : Integer; Radius : WORD); 

BEGIN 

Curve (xm, ym, Radius, Radius, 0, 360); 

END; 

{Füllt beliebige Fläche mit Farbe aus} 

procedure FloodFill(x,y : integer; border : word); 

BEGIN 

Fi 11 (x,y,border); 

END; 

{Setzt Füllmodus} 

PROCEDURE SetFi 11 Style (muster,color : word); 

BEGIN 

fillmuster := muster; 
fillcolor := color; 

END; 

{Zeichnet El 1ipsen(ausschnitt)} 

PROCEDURE Ellipse (xm, ym : Integer; AnfWinkel, EndWinkel, XRadius, YRadius : word); 
BEGIN 

Winkel(AnfWinkel.EndWinkel); 

Curve (xm, ym, XRadius, YRadius, AnfWinkel, EndWinkel); 

END; 

{Zeichnet ausgefüllte Ellipse} 

PROCEDURE Fi 11 Ellipse (xm, ym ; Integer; XRadius, YRadius : word); 

BEGIN 

Curve (xm, ym, XRadius, YRadius, 0, 360); 

IF fillmuster <> 0 THEN Fi 11(xm,ym,färbe); 

END; 

{Zeichnet Kreisbogenausschnitt} 

PROCEDURE Are (xm, ym : Integer; AnfWinkel, EndWinkel, Radius : WORD); 

BEGIN 

Winkel (AnfWinkel,EndWinkel); 

Curve (xm, ym, Radius, Radius, AnfWinkel, EndWinkel); 

END; 
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{Zeichnet ausgefülltes Tortenstück} 

PROCEDURE Sector (xm, ym : Integer; AnfWinkel, EndWinkel, XRadius, YRadius : WORD) 
VAR halbierende : real; 

BEGIN 

halbierende := ((Endwinkel+Anfwinkel)/2)*PI/180; 
winkel(AnfWinkel,EndWinkel); 

Slice (xm, ym, XRadius, YRadius, AnfWinkel, EndWinkel); 

IF fillmuster <> 0 THEN Fi 11(xm+Round(Xradius*cos(halbierENDe)/2), 
ym-Round(Yradius*sin(halbierende)/2),färbe); 

END; 

{Zeichnet nicht ausgefülltes Tortenstück} 

PROCEDURE PieSlice (xm, ym : Integer; AnfWinkel, EndWinkel, Radius : WORD); 

BEGIN 

Sector(xm, ym, AnfWinkel, EndWinkel, Radius, Radius); 

END; 

{Löscht Grafikbildschirm} 

PROCEDURE ClearDevice; 

BEGIN 

InitGraphic; 

END; 

{Holt aktuelle Zeichenfarbe} 

FUNCTION GetColor : word; 

BEGIN 

GetColor := Farbe; 

END; 

{Zeichnet dreidimensionale Säule} 

PROCEDURE Bar3D(xl,yl,x2,y2:integer; depthrword; toprboolean); 

BEGIN 

bar(xl,yl,x2,y2); 

1ine(x2,y2,x2+depth,y2-depth); 

1 ine(x2+depth,y2-depth,x2+depth,yl-depth); 

IF top THEN BEGIN 
1ine(x2,yl,x2+depth,yl-depth); 
line(xl,yl,xl+depth,yl-depth); 

1ine(xl+depth,yl-depth,x2+depth,yl-depth); 

END; 

END; 

{Zeichnet Polygon} 

PROCEDURE DrawPoly(NumPoints : word; VAR PolyPoints); 

TYPE wordes = array[1..20] of PointType; 

VAR i : byte; 
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BEGIN 

FOR i:= 2 to NumPoints DO BEGIN 

1ine(wordes(PolyPoints)[i—1].x,wordes(PolyPoints)[i-1].y,wordes(PolyPoints) [i] 

.x,wordes(PolyPoints) [i].y); 

END; 

END; 

{Zeichnet ausgefülltes Polygon} 

PROCEDURE FillPoly(NumPoints : word; VAR PolyPoints); 

TYPE wordes = array[1..20] of PointTYPE; 

VAR x,y ; integer; 

BEGIN 

DrawPoly(NumPoints,PolyPoints); 

IF ((wordes(PolyPoints)[1].x <> wordes(PolyPoints)[NUmPoints] .x) or 

(wordes(PolyPoints)[1].y <> wordes(PolyPoints)[NUmPoints] .y)) THEN BEGIN 

line(wordes(PolyPoints)[1].x,wordes(PolyPoints)[1].y,wordes(PolyPoints)[NumPoints].x,wordes 
(PolyPoints)[NumPoints].y); 
inc(NumPoints); 

wordes(PolyPoints)[NumPoints].x := wordes(PolyPoints)[1].x; 
wordes(PolyPoints)[NumPoints].y := wordes(PolyPoints)[1].y; 

END; 

x := wordes(PolyPoints)[1].x + Round((wordes(POlyPoints)[NumPoints-2].x-wordes 

(PolyPoints) [1].x)/2); 

y := wordes(PolyPoints)[1].y + Round((wordes(POlyPoints)[NumPoints-2].y-wordes 

(PolyPoints) [1].y)/2); 

x := x + Round((wordes(PolyPoints)[NumPoints-1].x-x)/2); 
y := y + Round((wordes(PolyPoints) [NumPoints-1].y-y)/2); 

IF ((fillmuster <>0) and (NumPoints>2)) THEN Fi 11(x,y,färbe); 

END; 

{Bewegt Grafikcursor relativ zur aktuellen Position} 

PROCEDURE MoveRel(dx,dy : integer); 

BEGIN 

gcursorx := gcursorx + dx; 
gcursory := gcursory + dy; 

END; 

{Bewegt Grafikcursor zu einer absoluten Position} 

PROCEDURE MoveTo(x,y : integer); 

BEGIN 

gcursorx := x; 
gcursory := y; 

END; 

{Zeichnet Linie zu einem relativen Punkt vom Grafikcursor ausgehend} 

PROCEDURE LineRel(dx,dy : integer); 

BEGIN 

Line(gcursorx,gcursory,gcursorx+dx,gcursory+dy); 

END; 
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{Zeichnet Linie zu einem absoluten Punkt von Grafikcursor ausgehend} 

PROCEDURE LineTo(x,y : integer); 

BEGIN 

Line(gcursorx,gcursory,x,y); 

END; 

{Schreibt Text in Grafikbildschirm} 

PROCEDURE OutTextXY(x,y : Integer; TextString : STRING); 

BEGIN 

Text(x, y, Seg(TextString), Ofs(TextString)); 

END; 

{Setzt Text-Ausgabemodus} 

PROCEDURE SetTextStyle (font,direction,Sizex,Sizey : word); 

CONST 

zeiun : array[1..12] of integer = (1,1,1,-1,-1,-1,0,1,-1,0,-1,1); 

zeili : array[1..12] of integer = (0,-1,1,0,-1,1,-1,-1,-1,1,1,1); 

spaun : array[1..12] of integer = (0,0,0,0,0,0,1,1,1,-1,-1,-1); 

spali : array[l..12] of integer = (1,1,1,-1,-1,-1,0,0,0,0,0,0); 

zeiof : array[1..12] of integer = (6,6,6,-6,-6,-6,0,0,0,0,0,0); 

spaof : array[1..12] of integer = (0,0,0,0,0,0,6,6,6,-6,-6,-6); 

BEGIN 

IF ((direction >=1) and (direction <=12)) THEN BEGIN 
xver := Sizex; 
yver := Sizey; 
zu := zeiun[direction]; 
zl := zeili[direction]; 
su := spaun[direction]; 
sl := spali[direction]; 
zch := zeiof[direction]*xver; 
spt := spaof[direction]*xver; 

END; 

END; 

{Initialisierungsroutine} 


BEGIN 


zu := 1; 

{Textausrichtung normal} 

zl := 0; 


su := 0; 


sl := 1; 


xver := 1; 

{Vergößerungsfaktor 1} 

yver := 1; 


zch := 6; 


spt := 0; 


färbe := 1; 


fillmuster := 

l; 
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fillcolor := 1; 
gcursorx := 0; 

gcursory := 0; {Grafikcursor} 

END. 

Zum Pascal-Teil möchte ich nichts mehr sagen, da die einzelnen Unter¬ 
programme relativ primitiv aufgebaut sind und Sie weitere Informationen 
zu den Grafikbefehlen aus dem Handbuch zu Turbo Pascal entnehmen 
können. Wesentlich interessanter scheint es mir, auf die Arbeitsweise der 
Assembler-Routinen einzugehen, die trotz der geringen Taktfrequenz des 
Portfolio-Prozessors ein angenehmes Arbeiten zulassen. 


2.5.1 Grafikmodus initialisieren 

Starten wir mit der einfachsten Aufgabe, dem Ein- und Ausschalten des 
Grafikmodus: Wie aus Kapitel 1 bekannt ist, muß man für die Grafik den 
(beim PC unbekannten) Videomodus 10 setzen, das Ausschalten der 
Grafik wird durch Setzen des Textmodus (Videomodus 7) erreicht. 

; INIT.ASM: Initialisiert Grafik-/Textschirm 

; Autor: Frank Riemenschneider 


CODESEG 

PROC InitGraphic FAR 

PUBLIC InitGraphic 

mov ah, 00 

mov al, OAh 

int 10h 

ret 

ENDP 

PROC CloseGraph FAR 

PUBLIC CloseGraph 

mov ah, 00 
mov al, 07 
int 10h 
ret 

ENDP 
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2.5.2 Grafikpunkt setzen 

Normalerweise gehöre ich zu den Leuten, die von der Benutzung von 
Betriebssystemroutinen zum Setzen eines Grafikpunktes abraten und 
statt dessen empfehlen, direkt das Video-RAM zu beschreiben. Man muß 
sich nur einmal klar machen, wie oft die Plot-Routine von allen anderen 
Grafikbefehlen wie z.B. Ellipse , Line etc. aufgerufen wird, um festzustellen, 
daß hier minimale Geschwindigkeitsvorteile im Endeffekt deutliche Zeit¬ 
gewinne verursachen können. Beim Portfolio sieht die Sache jedoch 
anders aus: Zum einen ist der Bildschirm relativ klein, so daß deutlich 
weniger Grafikpunkte pro Grafikbefehl gezeichnet werden müssen als z.B. 
bei einer VGA-Karte mit einer Auflösung von 640*400 Punkten. Der 
Hauptgrund liegt jedoch in dem notwendigen Bildschirm-Refresh: Würde 
man einfach nur das Video-RAM beschreiben, sähe man überhaupt 
nichts. Der Refresh mittels Interrupt $61 dauert jedoch solange, daß kein 
Geschwindigkeitsvorteil gegenüber der Betriebssystemroutine mehr fest¬ 
stellbar wäre. Die folgende Routine prüft zunächst, ob sich die Koordi¬ 
naten im zulässigen Rahmen bewegen und ruft dann den Interrupt $10 
auf. 


ASMPLOT.ASM: Setzt einen Punkt im Grafik-Bildschirm 

Autor: Frank Riemenschneider 

Eingabe: CX = x-Koordinate (0-239) 

DX = y-Koordinate (0-63) 

Ausgabe: keine 


DATASEG 

extrn Farbe : word 
extrn gcursorx : word 
extrn gcursory : word 

CODESEG 

PROC AsmPlot 

push ax 
push bx 
push cx 
push dx 
push si 
push di 


; Register auf 
; Stack retten 
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mov 

[gcursorx], 

,ax 

mov 

[gcursory], 

,bx 

mov 

cx, 

,ax 


mov 

dx, 

,bx 


mov 

ah. 

, 12 


mov 

al, 

, [BYTE ' 

färbe] 

int 

16 



pop 

di 



pop 

si 



pop 

dx 



pop 

cx 



pop 

bx 



pop 

ax 



ret 





; Alle Register wieder vom 
; Stack herunterholen 


; Back home 


ENDP 


; PLOT.ASM: Regelt die Parameterübernahme von Turbo Pascal aus für 

; die ASMPLOT-Routine in Turbo Assembler 

; Autor: Frank Riemenschneider 

; Eingabe: Parameter der PLOT-Funktion auf dem Stack 

; PIot( X, Y:WORD ); 

; Ausgabe: keine 

CODESEG 

PROC Plot FAR Xkoor:W0RD, Ykoor:W0RD 


PUBLIC Plot 


mov ax, [Xkoor] 

x- und y-Koordinaten in die 

mov bx, [Ykoor] 

entsprechenden Register bringen 

cmp ax, 0 

x-Koordinate < 0? 

jl PlotExit 

Ja -> Rücksprung 

cmp ax, 239 

x-Koordinate > 239 

jg PlotExit 

Ja -> Rücksprung 

cmp bx, 0 

y-Koordinate < 0? 

jl PlotExit 

Ja -> Rücksprung 

cmp bx, 63 

y-Koordinate > 63? 

jg PlotExit 

Ja -> Rücksprung 

call AsmPlot 

Plot-Routine aufrufen 


PlotExit: 

ret ; Back home 


ENDP 
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2.5.3 Grafikpunkt testen 

Die Test-Routine scheint auf den ersten Blick ebenfalls dazu angetan, den 
BlOS-Interrupt zu benutzen. Doch Achtung! Eine Flächenfüllroutine, wie 
wir sie unten kennenlemen werden, muß diese Routine permanent auf- 
rufen, um festzustellen, ob ein Grafikpunkt gesetzt ist oder nicht. Da eine 
Flächenfüllroutine sowieso mit zu den zeitkritischsten Aufgaben der 
Grafikprogrammierung gehört, ist eine Geschwindigkeitsmaximierung 
auch bei allen Unter-Routinen erforderlich. Deshalb werden wir nicht den 
BlOS-Interrupt benutzen, sondern das Video-RAM direkt auslesen, um 
auch einen noch so kleinen Zeitgewinn zu ermöglichen. Da im Gegensatz 
zum Setzen eines Punktes kein Bildschirm-Refresh erforderlich ist, kann 
man den Vorteil des Verfahrens zu 100% ausnutzen. In Kapitel 1 ist der 
Aufbau des Portfolio-Video-RAM beschrieben, so daß das folgende Listing 
leicht zu verstehen ist. Die Routine gibt den Farbwert zurück, der beim 
Setzen des Punktes angegeben wurde. 

; CALCXY.ASM: Berechnet Segment und Offset des Bytes im Video-RAM, sowie 
; die Bitmaske für das passende Bit bei gegebener x- und 

; y-Koordinate 

; Autor: Frank Riemenschneider 

; Eingabe: AX = x-Koordinate (0-239) 

; BX = y-Koordinate (0-63) 

; Ausgabe: ES = Segmentadresse des Bytes im Video-RAM 

; DI = Offsetadresse des Bytes im Video-RAM 

; DL = Bitmaske des Bytes im Video-RAM 

DATASEG 

extrn adrtab : DWORD 

CODESEG 

PROC CalcXY 

push cx 
push si 
mov cx, ax 

mov dx, ObOOOh 
lea si, adrtab 

mov es, dx 


; Koordinaten nochmal für spätere 
; Verwendung in der Berechnung retten 
; Offset EGA-Karte laden 

; Adresse der Zeilenanfänge der EGA-Karte laden 
; Segmentadresse laden 
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; Offsetadresse berechnen 
shl bx, 1 

mov dx, [si+bx] 
shr ax, 1 
shr ax, 1 
shr ax, 1 
add dx, ax 
mov di, dx 

; Berechnung der Bitmaske 
and cl, 7 
mov dl, 80h 
shr dl, cl 

pop si 
pop cx 
ret 

ENDP CalcXY 


; Tabelle enthält Wort-Werte, also 
; y-Koordinate verdoppeln 
; Adresse des Zeilenanfangs laden 


x/8 

Spaltenoffset addieren 
DI mit Offset laden 


; x MOD 8 
; Maske für Bit 0 

; Maske für gewünschtes Bit durch Rotation 
; der ursprünglichen Maske erzeugen 


; Back home 


; ASMTEST.ASM: Testet einen Punkt im Grafik-Bildschirm 

; Autor: Frank Riemenschneider 

; Eingabe: AX = x-Koordinate (0-239) 

; BX = y-Koordinate (0-63) 

; Ausgabe: DX = Farbe des Punktes 

DATASEG 


extrn färbe : word 

CODESEG 

PROC AsmTest 


push cx 
push si 
push di 

mov dl, [BYTE färbe] 
call CalcXY 


mov ch, [es:di] 
and dl, ch 
jz TestExitl 
mov dl, [BYTE färbe] 


; Stack kommen 


Default: Punkt gesetzt 

Offset- und Segmentadresse sowie die 

Bitmaske aus den x- und y-Koordinaten 

berechnen 

Byte aus dem Video-RAM lesen 
Bit testen 

Ergebnis 0 => schwarz 
Punkt ist weiß 


TestExitl: 

xor dh, dh 
pop di 
pop si 


Hi-Byte löschen 

Alle Register wieder von den Bäumen, 
äh, vom Stack herunterholen 
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pop cx 

ret ; Back home 

ENDP 


TEST.ASM: Regelt die Parameterübernahme von Turbo Pascal aus für 

die ASMTEST-Routine in Turbo Assembler 

Autor: Frank Riemenschneider 


Eingabe: Parameter der TESTPIXEL-Funktion auf dem Stack 


; TestPixel( 

X, Y : WORD )j 

; Ausgabe: Farbe des 

CODESEG 

Punktes 

PROC TestPixel FAR Xkoord:W0RD, Ykoord:W0RD 

PUBLIC TestPixel 

mov ax, [Xkoord] 

; x- und y-Koordinaten in die 

mov bx, [Ykoord] 

; entsprechenden Register bringen 

cmp ax, 0 

; x-Koordinate < 0? 

jl TestExit 

; Ja -> Rücksprung 

cmp ax, 239 

; x-Koordinate > 239? 

jg TestExit 

; Ja -> Rücksprung 

cmp bx, 0 

; y-Koordinate < 0? 

jl TestExit 

; Ja -> Rücksprung 

cmp bx, 63 

; y-Koordinate > 63? 

jg TestExit 

; Ja -> Rücksprung 

call AsmTest 
xor dh, dh 

; Test-Routine aufrufen 

mov ax, dx 
TestExit: 

; Farbe zurückgeben 

ret 

; Back home 


ENDP 


2.5.4 Linie ziehen 

Nach den relativ einfachen Grundfunktionen (Punkt setzen, Punkt testen) 
kommen wir nun zur ersten komplexen Grafikfunktion, dem Zeichnen 
einer Linie. Hierfür existieren viele verschiedene Algorithmen, von denen 
einige langsamer und speicherplatzsparender sind, andere schneller und 
speicherfressender. In meinem Buch Amiga: Programmieren in Maschinen¬ 
sprache können Sie ein Verfahren nachvollziehen, das sehr schnell arbei¬ 
tet, weil für horizontale und vertikale Linien eigene Routinen programmiert 
wurden; dafür benötigt es jedoch wirklich einen großen Codeumfang. Beim 
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Portfolio ist die Geschwindigkeit nicht ganz so relevant, da zum einen 
Linien durch den kleinen Bildschirm bedingt nicht aus so vielen Grafik¬ 
punkten bestehen wie beim großen PC und zum anderen der Speicher¬ 
bedarf an allererster Stelle steht. 

Ich habe deshalb den sogenannten Bresenham-Algorithmus gewählt (nach 
seinem Erfinder benannt), der den Vorteil des geringen Platzbedarfs mit 
einer noch erträglichen Geschwindigkeit verknüpft, da ausschließlich 
Integer-Arithmetik zur Anwendung kommt. Eine Linie läßt sich nach der 
Gleichung 

y = m * x + b 

beschreiben, wobei m die Steigung und b den Offset (dies ist der y-Wert 
bei x=0) darstellt. Das Problem besteht nun darin, daß m in den aller¬ 
meisten Fällen keine ganze Zahl darstellt, wodurch man theoretisch mit 
Fließkommarithmetik arbeiten müßte. Stellen Sie sich ein Blatt kariertes 
Papier vor, wobei jeder Eckpunkt eines Kästchens eine Koordinate auf 
dem Grafikschirm darstellt. Wenn Sie eine beliebige Linie auf dieses Papier 
malen, stellen Sie fest, daß diese nur in sehr wenigen Fällen direkt durch 
die Ecken der Kästchen geht, meistens schneidet sie die Kästchen 
irdendwo zwischen den Eckpunkten (Bild 2.3). 

Bild 2.3: Ideale Linie 



Nun, diese Zwischenwerte sind auf dem Papier kein Problem, der 
Computerbildschirm kennt aber keine »krummen« Koordinaten wie X = 
3,5. Für den Computer müßte man daher jeden »krummen« Wert zunächst 
nach oben oder unten runden, bevor man ihn ausgeben kann, wodurch 
das berühmte Treppenmuster entsteht (Bild 2.4). 
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Berechnen der Absolutbeträge von DeltaX und DeltaY 


Feststellen der Vorzeichen von DeltaX und DeltaY 
=> Erhöhungswerte bestimmen (SignX und SignY) 



Berechnen des Startwertes 


Berechnen der Inkremente (Incl und Inc2) 


Punkt setzen 


so lange Endkoordinaten nicht erreicht sind 



d = d - Inc2 


Marke 

Ja 

t= 1 ? 

Nein 

y = y + SignY 

x = x + SignX 

d = d + Incl 


Punkt setzen 


Bild 2.5: Bresenham- 
Algorithmus 
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Herr Bresenham erkannte, daß es paradox ist, zunächst Fließkomma¬ 
zahlen zu erzeugen, die anschließend wieder gerundet werden müssen. 
Sein Verfahren beruht auf der Idee, daß man das Auf- und Abrunden 
jedes Punktes allein durch die Steigung m bestimmen kann. Die Frage 
lautet: Nach wie vielen Schritten in x-Richtung muß ich auch einen Schritt 
in y-Richtung machen? Dazu wird aus der Steigung ein Wert bestimmt, 
von dem nach jedem Schritt in x-Richtung ein bestimmter zweiter Wert 
abgezogen wird. Ist das Ergebnis kleiner Null, muß auch ein Schritt in y- 
Richtung getätigt werden, worauf der erste Wert wieder hinzugezählt wird. 
Ist das Ergebnis jedoch nicht kleiner als Null, bleibt der y-Wert bestehen. 
Ist die Linie steiler als die Winkelhalbierende, kehrt sich die Fragestellung 
um, d.h. man fragt dann, nach wie vielen Schritten in y-Richtung muß 
auch ein Schritt in x-Richtung getätigt werden. In Bild 2.5 ist der 
Algorithmus grafisch dargestellt. 


; LINE.ASM: Zieht eine Linie im Grafik-Bildschirm 
; Autor: Frank Riemenschneider 

; Eingabe: AX = x-Koordinate (0-239) des Startpunktes 

; BX = y-Koordinate (0-63) des Startpunktes 

; CX = x-Koordinate (0-239) des Endpunktes 

; DX = y-Koordinate (0-63) des Endpunktes 

; Ausgabe: keine 

DATASEG 


DeltaX 

dw ? 

Steigung in x-Richtung 

DeltaY 

dw ? 

Steigung in y-Richtung 

SignX 

dw ? 

Vorzeichen x-Richtung 

SignY 

dw ? 

Vorzeichen y-Richtung 

Incl 

dw ? 

Inkrement 1 

Inc2 

dw ? 

Inkrement 2 


CODESEG 

PROC AsmLine 

push ax 
push bx 
push cx 
push dx 
push si 
push di 
push bp 

mov [DeltaX], cx ; Steigung in x-Richtung berechnen 
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mov [SignX], 1 
sub [DeltaX], ax 
jz Linel_ab8 
jg LineLab9 
neg [DeltaX] 
mov [SignX], -1 
jmp short LineLab9 
LineLab8: 

mov [SignX], 0 
LineLab9: 

mov [DeltaY], dx 
mov [SignY], 1 
sub [DeltaY], bx 
jz LineLablO 
jg LineLabll 
neg [DeltaY] 
mov [SignY], -1 
jmp short LineLabll 
LineLablO: 

mov [SignY], 0 
LineLabll: 

mov bp, 0 
push ax 

mov ax, [DeltaX] 
cmp ax, [DeltaY] 

jge LineLabl2 
mov ax, [DeltaX] 
xchg [DeltaY], ax 
mov [DeltaX], ax 
mov bp, 1 
LineLabl2: 

mov ax, [DeltaY] 
shl ax, 1 
sub ax, [DeltaX] 
mov si, ax 
mov ax, [DeltaX] 
shl ax, 1 
mov [Inc2], ax 
mov ax, [DeltaY] 
shl ax, 1 
mov [Incl], ax 
pop ax 

call AsmPlot 
LineWhileLoop: 

cmp ax, cx 
jne LineLabl3 
cmp bx, dx 
jne LineLabl3 
jmp LineExit 
LineLabl3: 

cmp si, 0 
jl LineLabl6 


; positives Vorzeichen annehmen 


; Steigung negativ? 

; Ja -> DeltaX komplementieren 
; negatives Vorzeichen in x-Richtung 


; waagerechte Linie => Vorzeichen = 0 

; Steigung in y-Richtung berechnen 
; positives Vorzeichen annehmen 


; Steigung negativ? 

; Ja -> DeltaY komplementieren 
; negatives Vorzeichen in y-Richtung 


; Richtungsflag löschen 
; Koordinate retten, um das Register zum 
; Arbeiten freizubekommen 

; Größe der Steigungen in x- und y-Richtung 
; vergleichen 

; Ja -> Steigungen nicht tauschen 
; Steigungen vertauschen 


; Richtungsflag setzen 

; Steigung y-Richtung laden, 

; mit 2 multiplizieren, 

; davon Steigung x-Richtung abziehen 
; Ergebnis ist der Startwert 
; Inkrement 2 berechnen 
; als Doppeltem der Steigung x-Richtung 

; Inkrement 1 berechnen 
; als Doppeltem der Steigung y-Richtung 

; x-Koordinate Startpunkt wiederherstellen 
; Punkt setzen 

; x-Koordinate Endpunkt erreicht? 

; Nein -> weiter plotten 
; y-Koordinate Endpunkt erreicht? 

; Nein -> weiter plotten 
; Ja -> Beenden 

; Startwert >= 0? 

; Nein -> weiter hinten 
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cmp bp, 1 
jne LineLabl4 
add ax, [SignX] 
jmp short LineLabl5 
LineLabl4: 

add bx, [SignY] 
LineLabl5: 

sub si, [Inc2] 
LineLabl6: 

cmp bp, 1 
jne LineLabl7 
add bx, [SignY] 
jmp short LineLabl8 
LineLabl7: 

add ax, [SignX] 
LineLabl8: 

add si, [Incl] 
call AsmPlot 
jmp LineWhileLoop 


; Flag = 1? 

; x-Koordinate erhöhen 


; y-Koordinate erhöhen 
; Startwert um Inkrement 2 erniedrigen 
; Flag = 1? 

; Nein -> weiter hinten 
; y-Koordinate erhöhen 


; x-Koordinate erhöhen 

; Startwert um Inkrement 1 erhöhen 
; Punkt setzen 

; Zurück zum Schleifenanfang 


LineExit: 

pop bp 
pop di 
pop si 
pop dx 
pop cx 
pop bx 
pop ax 
ret 


; Alle Register wieder von den Bäumen, 
; äh, vom Stack herunterholen 


; Back home 


ENDP 


LINE.ASM: Regelt die Parameterübernahme von Turbo Pascal aus für 

die ASMLINE-Routine in Turbo Assembler 


Eingabe: 

Ausgabe: 


Parameter der LINE-Funktion auf dem Stack 
Li ne( XAnf, YAnf, XEnde, YEnde:WORD ); 
keine 


CODESEG 


PROC Line FAR XAnf:WORD, YAnf:W0RD, XEnde:WORD, YEnde:WORD 
PUBLIC Line 


mov ax, [XAnf] 
mov bx, [YAnf] 
mov cx, [XEnde] 
mov dx, [YEnde] 
; Koordinaten testen 
cmp ax, 0 
jge LineLabl 
xor ax, ax 
LineLabl: 

cmp ax, 239 


; Anfangs- und Endkoordinaten in die 
; entsprechenden Register bringen 


; XAnf < 0? 


; XAnf > 239? 
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jle LineLab2 
mov ax, 239 
LineLab2: 

cmp bx, 0 
jge LineLab3 
xor bx, bx 
LineLab3: 

cmp bx, 63 
jle LineLab4 
mov bx, 63 
LineLab4: 

cmp cx, 0 
jge LineLab5 
xor cx, cx 
LineLab5: 

cmp cx, 239 
jle LineLab6 
mov cx, 239 
LineLab6: 

cmp dx, 0 
jge LineLab7 
xor dx, dx 
LineLab7: 

cmp dx, 63 
jle LineLab7a 
mov dx, 63 
LineLab7a: 

call AsmLine 
ret 


; YAnf < 0? 


; YAnf > 63? 


; XEnde < 0? 


; XEnde > 239? 


; YEnde < 0? 


; YEnde > 63? 


; Line-Routine aufrufen 
; Back home 


ENDP 


2.5.5 Rechteck zeichnen 

Mit Hilfe der Line-Routine ist das Zeichnen eines Rechtecks ein Kinder¬ 
spiel, da diese nur viermal hintereinander mit den Eckpunkten als Start- 
und Zielkoordinaten aufgerufen werden muß. 


ASMBOX.ASM: Zeichnet ein Rechteck im Grafik-Bildschirm 


Autor: Frank Riemenschneider 


Eingabe: 


Ausgabe: 


AX = x-Koordinate 
BX = y-Koordinate 
CX = x-Koordinate 
DX = y-Koordinate 


(0-239) der oberen linken Ecke 
(0-63) der oberen linken Ecke 
(0-239) der unteren rechten Ecke 
(0-63) der unteren rechten Ecke 


keine 
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DATASEG 


XI 

dw ? 

; x-Koordinate 

X2 

dw ? 

; x-Koordinate 

Yl 

dw ? 

; y-Koordinate 

Y2 

dw ? 

; y-Koordinate 


CODESEG 


PROC AsmBox 


linke obere Ecke 
rechte untere Ecke 
linke obere Ecke 
rechte untere Ecke 


push ax 
push bx 
push cx 
push dx 
push di 
mov [XI], ax 
mov [Yl], bx 
mov [X2], cx 
mov [Y2], dx 
mov dx, [Yl] 
call AsmLine 
mov ax, [X2] 
mov dx, [Y2] 
call AsmLine 
mov ax, [XI] 
mov bx, [Y2] 
call AsmLine 
mov cx, [XI] 
mov bx, [Yl] 
call AsmLine 


; Alle Register retten, die nicht schnell 
; genug in den nächsten Stack kommen 


; Koordinaten abspeichern 


; obere Linie zeichnen 


; rechte Linie zeichnen 


; untere Linie zeichnen 


; linke Linie zeichnen 


BoxExit: 

pop di 
pop dx 
pop cx 
pop bx 
pop ax 
ret 


; Back home 


ENDP 


BOX.ASM: Regelt die Parameterübernahme von Turbo Pascal aus für 

die ASMBOX-Routine in Turbo Assembler 


Eingabe: 

Ausgabe: 


Parameter der Box-Funktion auf dem Stack 

Box( Xol, Yol, Xru, Yru:W0RD ); 

keine 


CODESEG 


PROC Box FAR XIo:WORD, Ylo:W0RD, Xru:WORD, Yru:W0RD 
PUBLIC Box 
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mov ax, [XIo] 
mov bx, [Ylo] 
mov cx, [Xru] 
mov dx, [Yru] 
; Koordinaten testen 


BoxLabl: 


; Anfangs- und Endkoordinaten in die 
; entsprechenden Register bringen 


cmp ax, 0 
jge BoxLabl 
xor ax, ax 

; XAnf < 0? 

cmp ax, 239 
jle BoxLab2 
mov ax, 239 

; XAnf > 239? 

cmp bx, 0 
jge BoxLab3 
xor bx, bx 

; YAnf < 0? 

cmp bx, 63 
jle BoxLab4 
mov bx, 63 

; YAnf > 63? 

cmp cx, 0 
jge BoxLab5 
xor cx, cx 

; XEnde < 0? 

cmp cx, 239 
jle BoxLab6 
mov cx, 239 

; XEnde > 239? 

cmp dx, 0 
jge BoxLab7 
xor dx, dx 

; YEnde < 0? 

cmp dx, 63 
jle BoxLab8 
mov dx, 63 

; YEnde > 63? 

cmp ax, cx 
jle BoxLab9 
xchg ax, cx 

; XAnf > XEnde? 

cmp bx, dx 
jle BoxLablO 
xchg bx, dx 

; YAnf > YEnde? 


BoxLab2: 


BoxLab3: 


BoxLab4: 


BoxLab5: 


BoxLab6: 


BoxLab7: 


BoxLab8: 


BoxLab9: 


BoxLablO: 

call AsmBox 
ret 


; Box-Routine aufrufen 
; Back home 


ENDP 
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Ebenso einfach ist das Zeichnen eines ausgefüllten Rechtecks, da hierfür 
ebenfalls nur die Line -Routine mehrmals hintereinander aufgerufen 
werden muß. 


BAR.ASM: Zeichnet ein gefülltes Rechteck im Grafik-Bildschirm 


Autor: Frank Riemenschneider 

Eingabe: AX = x-Koordinate (0-239) der oberen linken Ecke 

BX = y-Koordinate (0-63) der oberen linken Ecke 
CX = x-Koordinate (0-239) der unteren rechten Ecke 
DX = y-Koordinate (0-63) der unteren rechten Ecke 


; Ausgabe: keine 

DATASEG 


XB1 

dw ? 

; x-Koordinate 

linke obere Ecke 

XB2 

dw ? 

; x-Koordinate 

rechte untere Ecke 

YB1 

dw ? 

; y-Koordinate 

linke obere Ecke 

YB2 

dw ? 

; y-Koordinate 

rechte untere Ecke 


CODESEG 


PROC AsmBlock 

push ax 
push bx 
push cx 
push dx 
push di 
mov [XB1], ax 
mov [YB1], bx 
mov [XB2], cx 
mov [YB2], dx 
mov dx, [YB1] 

BlockLoop: 

call AsmLine 
cmp bx, [YB2] 
je BlockExit 
inc bx 
inc dx 

jmp BlockLoop 

BlockExit: 

pop di 
pop dx 
pop cx 
pop bx 
pop ax 
ret 


; Alle Register retten, die nicht schnell 
; genug in den nächsten Stack kommen 


; Koordinaten abspeichern 


; oberste Linie zeichnen 
; Ende erreicht? 

; Ja -> Beenden 

; Start- und Endkoordinaten der Linie erhöhen 
; Nächste Linie zeichnen 


; Back home 
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ENDP 

; BAR.ASM: Regelt die Parameterübernahme von Turbo Pascal aus 

; für die ASMBLOCK-Routine in Turbo Assembler 

; Eingabe: Parameter der Block-Funktion auf dem Stack 

Bar( Xlo, Ylo, Xru, Yru:W0RD ); 

; Ausgabe: keine 

CODESEG 

PROC Bar Xlo:W0RD, Ylo:W0RD, Xru:W0RD, Yru:W0RD 
PUBLIC Bar 

mov ax, [Xlo] ; Anfangs- und Endkoordinaten in die 

mov bx, [Ylo] ; entsprechenden Register bringen 

mov cx, [Xru] 

mov dx, [Yru] 

; Koordinaten testen 


cmp 

ax, 0 

; XAnf 

< 0? 

jge 

BlockLabl 



xor 

ax, ax 



BlockLabl: 




cmp 

ax, 239 

; XAnf 

> 239? 

jle 

BlockLab2 



mov 

ax, 239 



BlockLab2: 




cmp 

bx, 0 

; YAnf 

< 0? 

jge 

BlockLab3 



xor 

bx, bx 



BlockLab3: 




cmp 

bx, 63 

; YAnf 

> 63? 

jle 

BlockLab4 



mov 

bx, 63 



BlockLab4: 




cmp 

cx, 0 

; XEnde 

< 0? 

jge 

BlockLab5 



xor 

cx, cx 



BlockLab5: 




cmp 

cx, 239 

; XEnde 

> 239? 

jle 

BlockLab6 



mov 

cx, 239 



BlockLabö: 




cmp 

dx, 0 

; YEnde 

< 0? 

jge 

BlockLab7 



xor 

dx, dx 



BlockLab7: 




cmp 

dx, 63 

; YEnde 

> 63? 

jle 

BlockLab8 



mov 

dx, 63 



BlockLab8: 




cmp 

ax, cx 

; XAnf : 

> XEnde? 

jle 

BlockLab9 
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xchg ax, cx 
BlockLab9: 

cmp bx, dx 
jle BlockLablO 
xchg bx, dx 
BlockLablO: 

call AsmBlock 
ret 


; YAnf > YEnde? 


; Block-Routine aufrufen 
; Back home 


ENDP 


2.5.7 Ellipse(nabschnitt) zeichnen 

Wir wollen nun die Gebilde verlassen, die ausschließlich aus Geraden 
bestehen, und uns den Kreisen und Ellipsen zuwenden, deren Aufbau den 
einer Linie an Komplexität noch weit übertrifft. 

Mathematisch gesehen gibt es drei Möglichkeiten, eine Ellipse zu 
beschreiben: Die kartesischen Koordinaten, die Zylinderkoordinaten und 
die Kugelkoordinaten. Meistens wird mit den Zylinderkoordinaten gerech¬ 
net. Wenn man den Mittelpunkt der Ellipse durch die Koordinaten XM 
und YM beschreibt, den Radius in x-Richtung mit XM und den in y- 
Richtung mit YM, und schließlich den Winkel W einführt, kann man die 
Ellipse als die Punktmenge definieren, welche die folgenden beiden 
Gleichungen erfüllt: 

X = XM + XRxCOS(W) 0 Grad < W < 360 Grad 

Y = YM + YRxSINfW) 0 Grad < W < 360 Grad 

Falls XR und YR gleich sind, liegt der Sonderfall eines Kreises vor. Man 

braucht also tatsächlich nur eine Routine, um sowohl Kreise als auch 

Ellipsen zeichnen zu können. 

Das übliche Verfahren, um in den Zylinderkoordinaten eine Ellipse zu 
zeichnen, besteht einfach darin, für jeden Winkel W die beiden obigen 
Gleichungen auszuwerten, also die Sinus- und Cosinus-Werte zu berech¬ 
nen, mit den Radien zu multiplizieren und das Ergebnis in eine Integer- 
Zahl umzuwandeln, die dann zu den Mittelpunktkoordinaten addiert wird. 
Ein Problem besteht darin, daß bei einer idealen Ellipse zwei nebenein¬ 
anderliegende Winkel W unendlich dicht zusammenliegen, was theoretisch 
unendlich viele Berechnungsschritte erforderlich macht. Viele Programme 
helfen sich damit, daß nur Punkte gewisser Winkel berechnet werden und 
diese dann durch Linien verbunden werden. Je größer die Schrittweite ist, 
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desto größer ist natürlich die Zeichengeschwindigkeit, desto größer aber 
auch die Abweichung von einer idealen Ellipse. 



Bild 2.6: Aufbau einer 
Ellipse 


Es ist jedoch klar, daß der Portfolio keine ideale Ellipse darstellen kann, 
da seine Grafikauflösung nicht unendlich groß ist, sondern nur 240x64 
Punkte beträgt. Die genaueste mögliche Ellipse erhält man, wenn zwei 
nebeneinanderliegende x- und y-Werte jeweils nicht mehr als einen Grafik¬ 
punkt auseinanderliegen. Dieses Kriterium kann man für einen 
bestimmten Computer einführen, um den Begriff »Genauigkeit« zu defi¬ 
nieren. 

In der Praxis heißt dies, daß man eine Schrittweite von ca. 0,1 Grad 
nehmen muß, um dieser Forderung zu entsprechen. Leider wird die 
Zeichengeschwindigkeit dadurch aber unakzeptabel hoch. Daher überlegte 
man sich ein »Optimierungsverfahren« (dieses verdient den Namen nicht, 
deshalb habe ich es in Anführungszeichen gesetzt), wobei mathematische 
Beziehungen zwischen der Sinus- und Cosinus-Funktion ausgenutzt 
werden: 

1: SINfW) = SIN(180 Grad - Wj = -SIN(180 Grad + W) = -SIN(360 Grad - W) 
2: COS(W) = COS(360 Grad - W)=-COS( 180 Grad -W)=-COS(180 Grad+W) 

Durch diese Tatsache ist es möglich, mit einem berechneten Wertepaar 
(X,Y) jeweils in jedem Quadranten einen Punkt zu setzen, da sich nur die 
Vorzeichen unterscheiden. Wenn wir den Term XRxCOS(W) mit XOFF und 
YRxSINfW) mit YOFF bezeichnen, ergeben sich für die Koordinaten der ein¬ 
zelnen Quadranten folgende Zusammenhänge: 
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1. Quadrant ( 0- 90 Grad): 

2. Quadrant ( 90-180 Grad) 

3. Quadrant (180-270 Grad) 

4. Quadrant (270-360 Grad) 


X = XM + XOFF; Y = YM - YOFF 
X = XM + XOFF; Y = YM + YOFF 
X = XM - XOFF; Y = YM + YOFF 
X = XM - XOFF; Y = YM - YOFF 


Durch diese Methode kann man die Rechenzeit ca. um den Faktor 4 ver¬ 
ringern. Leider kann eine Zeichenroutine dieses Musters aber keine belie¬ 
bigen Ausschnitte einer Ellipse zeichnen. 

Trotz dieses Kunstgriffs ist es aber nicht gelungen, die Rechenzeit soweit 
zu verkürzen, daJ3 man den Ellipsenaufbau optisch nicht mehr mitver¬ 
folgen kann, was für mich das Kriterium von Geschwindigkeit ist. Das 
eigentliche Problem besteht weiterhin in der Verwendung von 
FlieJ3kommazahlen, die ja eigentlich unsinnig sind, wie wir schon im 
Abschnitt über die Linien gesehen haben. Die Frage ist, wie man Sinus- 
und Cosinus-Werte berechnen kann, ohne Fließkommazahlen zu benut¬ 
zen. Die Antwort: überhaupt nicht. Ich möchte Ihnen daher ein Verfahren 
vorstellen, das ich 1987 für den C64 entwickelt habe (dieser Rechner 
besajS einen 6502-Prozessor, der mit 1 (!) MHz getaktet wurde) und 1989 
auf den Amiga übertragen habe (68000-Prozessor mit 8 MHz), wo die 
Ellipsen-Routine am Ende 5000 Grafikpunkte pro Sekunde zeichnete. 
Nun, solche Ergebnisse sind auf dem Portfolio allein schon wegen des 
langsamen LCD-Kontrollers nicht zu erwarten, die C64-Ergebnisse werden 
jedoch allemal erreicht. 

Die Idee des Verfahrens besteht darin, die Sinus- und Cosinus-Werte in 
einer Integer-Tabelle anzulegen. Dies ist unmittelbar nicht möglich, da 
sich die Werte ja nur im Bereich zwischen 0 und 1 bewegen. Wenn man 
jeden dieser Werte aber mit einer hinreichend großen Zahl multipliziert, 
steht der Umwandlung ins Integer-Format nichts mehr im Wege. Um mit 
dem Variablentyp Byte arbeiten zu können, wodurch die maximale 
Geschwindigkeit erzielt wird, werden wir den Wert 255 nehmen. Daher gilt 
für einen Tabelleneintrag: 


Wert = INT(COS(W)x255) 

Um den Offset zu erhalten, müssen wir 
XOFF = XM + XRx(Wert/255) 

rechnen. An dieser Stelle müssen wir uns wieder mit dem Problem 
Genauigkeit auseinandersetzen. Wie viele Werte soll die Tabelle enthalten 
und in welcher Schrittweite müssen diese angelegt werden? 
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Wir benötigen die Werte von 0 Grad < W < 90 Grad, die auch für die ande¬ 
ren drei Quadranten verwendet werden können (s.o.). Unsere Forderung 
ist, daß zwei benachbarte Werte maximal um die Zahl 1 differieren dürfen, 
um die größtmögliche Genauigkeit zu erhalten. Hier hilft nur aus¬ 
probieren: Es zeigt sich, daß die Schrittweite 1/394 die größte mögliche 
ist, die diese Forderung erfüllt. Eine geringere Schrittweite bringt einen 
Zuwachs an Rechenzeit, eine größere einen Verlust an Genauigkeit. Wir 
haben nach dem Grundsatz »so grob wie möglich, so fein wie nötig« die 
optimale Schrittweite erhalten. Unsere Tabellenwerte können wir nun in 
einer Schleife berechnen: 

FOR I = 0 TO 394 : WERT(I) = 255xINT(COS(90/394)xI)) : NEXT I 

Damit haben wir es geschafft, den Übergang vom Winkel W in eine Schleife 
von Integer-Werten zu erreichen. Die kritischste Stelle der Genauigkeit 
liegt übrigens bei 90 Grad, da der Cosinus dort seine größte Steigung auf¬ 
weist. Der x-Offset läßt sich nun auf einfachste Weise berechnen: Wir 
müssen in einer Schleife von 0 bis 394 die jeweiligen Tabellenwerte aus- 
lesen, mit dem x-Radius multiplizieren und durch 255 teilen: 

FOR I = 0 TO 394 : X = XM + (XRxWert(I))/255 : NEXT I 

Hier der Beweis: Wenn wir die Berechnungsgrundlage für die Tabellen¬ 
werte einsetzen, ergibt sich folgendes: 

FOR I = 0 TO 394 : X = XM + (XRx255xINT(COS(90/394)xl))/255 : NEXT I 
Dies kann man aber auch so ausdrücken: 

FOR I = 0 TO 90 : X = XM + XRxINT(COS(I)) : NEXT I 

Das einzige Problem besteht darin, daß nur Radien bis einschließlich des 
Werts 255 zugelassen sind, da bis zu diesem Zeitpunkt der Ausdruck 

X0FF = (XRxWERT(I))/255 

nicht größer als 1 werden kann, was für die erforderliche Genauigkeit ja 
notwendig ist. Mit dieser Einschränkung kann man aber leben, wenn man 
bedenkt, daß der maximale Durchmesser in x-Richtung nur 240 Punkte 
und in y-Richtung sogar nur 64 Punkte beträgt. Für die Sinus-Werte muß 
übrigens keine eigene Tabelle angelegt werden, da für diesen gilt: 

SIN(W) = COS(90 Grad - W) 
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Man liest die Tabelle also einmal von vome für die Cosinus-Werte und 
einmal von hinten für die Sinus-Werte. Hier nun der Quelltext der Rou¬ 
tine, die noch zusätzlich zwischen einer ganzen Ellipse und einem Aus¬ 
schnitt unterscheidet. 


ASMCURVE.ASM: Zeichnet einen Ellipsenbogen 
Autor: Frank Riemenschneider 

Eingabe: AX = x-Koordinate Ellipsenmittelpunkt (0-239) 

BX = y-Koordinate Ellipsenmittelpunkt (0-63) 
CX = Radius in x-Richtung (0-255) 

DX = Radius in y-Richtung (0-255) 

ES = Anfangswinkel in Grad (0-359°) 

SI = Endwinkel in Grad (0-360°) 

Ausgabe: keine 


DATASEG 


Benötigte Variable 


X 

dw 

? 

x-Koordinate 

y 

dw 

? 

y-Koordinate 

xr 

dw 

? 

x-Radius 

yr 

dw 

? 

y-Radius 

xoff 

dw 

? 

x-Offset 

yoff 

dw 

? 

y-Offset 

zaehl1 

dw 

? 

Zähler 1 

zaehl2 

dw 

? 

Zähler 2 

xm 

dw 

? 

x-Koordinate Mit 

anqua 

dw 

? 

Anfangsquadrant 

endqua 

dw 

? 

Endquadrant 

anpunkt 

dw 

? 

Anfangspunkt 

endpunkt 

dw 

? 

Endpunkt 

offtabl 

db 

400 dup (?) ; Offset- 

offtab2 

db 

400 dup (?) 

extrn costab : 1 

DWORD 


extrn ArcStartX 

: DWORD 


extrn ArcStartY 

: DWORD 


extrn ArcEndX : 

DWORD 


extrn ArcEndY : 

DWORD 



CODESEG 

; Koordinate des Start- und Endpunktes des Ellipsenbogens berechnen 
MACR0 CalcPoints StartQuad, EndQuad 
IFIDNI <StartQuad>, <1> 
mov bx, 394 
sub bx, [anpunkt] 

ENDIF 

IFIDNI <StartQuad>, <2> 
mov bx, [anpunkt] 
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ENDIF 

IFIDNI <StartQuad>, <3> 
mov bx, 394 
sub bx, [anpunkt] 

ENDIF 

IFIDNI <StartQuad>, <4> 
mov bx, [anpunkt] 

ENDIF 

xor ch, ch 

mov dh, ch 

mov cl, [offtabl+bx] 

mov dl, [offtab2+bx] 

IFIDNI <StartQuad>, <1> 
add cx, [xm] 

mov [WORD ArcStartX], cx 
mov cx, [y] 
sub cx, dx 

mov [WORD ArcStartY], cx 
ENDIF 

IFIDNI <StartQuad>, <2> 
add cx, [xm] 

mov [WORD ArcStartX], cx 
add dx, [y] 

mov [WORD ArcStartY], dx 
ENDIF 

IFIDNI <StartQuad>, <3> 
mov ax, [xm] 
sub ax, cx 

mov [WORD ArcStartX], ax 
add dx, [y] 

mov [WORD ArcStartY], dx 
ENDIF 

IFIDNI <StartQuad>, <4> 
mov ax, [xm] 
sub ax, cx 

mov [WORD ArcStartX], ax 
mov cx, [y] 
sub cx, dx 

mov [WORD ArcStartY], cx 
ENDIF 

IFIDNI <EndQuad>, <1> 
mov bx, 394 
sub bx, [endpunkt] 

ENDIF 

IFIDNI <EndQuad>, <2> 
mov bx, [endpunkt] 

ENDIF 

IFIDNI <EndQuad>, <3> 
mov bx, 394 
sub bx, [endpunkt] 

ENDIF 

IFIDNI <EndQuad>, <4> 
mov bx, [endpunkt] 

ENDIF 
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xor ch, ch 

mov dh, ch 

mov cl, [offtabl+bx] 

mov dl, [offtab2+bx] 

IFIDNI <EndQuad>, <1> 
add cx, [xm] 
mov [WORD ArcEndX], cx 
mov cx, [y] 
sub cx, dx 

mov [WORD ArcEndY], cx 
ENDIF 

IFIDNI <EndQuad>, <2> 
add cx, [xm] 
mov [WORD ArcEndX], cx 
add dx, [y] 

mov [WORD ArcEndY], dx 
ENDIF 

IFIDNI <EndQuad>, <3> 
mov ax, [xm] 
sub ax, cx 

mov [WORD ArcEndX], ax 
add dx, [y] 

mov [WORD ArcEndY], dx 
ENDIF 

IFIDNI <EndQuad>, <4> 
mov ax, [xm] 
sub ax, cx 

mov [WORD ArcEndX], ax 
mov cx, [y] 
sub cx, dx 

mov [WORD ArcEndY], cx 
ENDIF 
ENDM 


; Quadranten zeichnen 
MACRO QuadLoop Quad, Indexl, 
xor ch, ch 
mov dh, ch 
LoopQ&Quad: 

mov bx, [zaehl&Indexl] 
mov cl, [offtabl+bx] 
mov dl, [offtab2+bx] 
mov ax, [xm] 

IFIDNI <Quad>, <1> 
add ax, cx 
mov bx, [y] 
sub bx, dx 
ENDIF 

IFIDNI <Quad>, <2> 
add ax, cx 
mov bx, [y] 
add bx, dx 
ENDIF 

IFIDNI <Quad>, <3> 


Index2 


; x-Offset holen 
; y-Offset holen 

; x-Koordinate Mittelpunkt holen 

; x = xm + xoff 
; y-Koordinate holen 
; y = y - yoff 


; x * xm + xoff 
; y = y + yoff 
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sub ax, cx 
mov bx, [y] 
add bx, dx 
ENDIF 

IFIDNI <Quad>, <4> 
sub ax, cx 
mov bx, [y] 
sub bx, dx 
ENDIF 

call AsmPlot 
mov ax, [zaehl&Indexl] 
cmp ax, [zaehl&Index2] 
je ExitLoopQ&Quad 
inc ax 

mov [zaehl&Indexl], ax 
jmp LoopQ&Quad 
ExitLoopQ&Quad: 

ret 

ENDM 


; y = y + yoff 

; x = xm - xoff 

; y = y - yoff 

; Punkt setzen 

; alle Punkte gesetzt? 
; Ja -> Beenden 
; Zähler erhöhen 


; Koordinaten holen 

PROC koor NEAR 

mov [xm], ax 
mov [y], bx 
mov [xr], cx 
mov [yr], dx 
mov ax, es 
call rechne 

mov [anqua], ax 
mov [anpunkt], bx 
mov ax, si 
call rechne 

mov [endqua], ax 
mov [endpunkt], bx 
ret 

; Umrechnung: Winkel -> Quadrant 

rechne: push ax 

mov cx, 90 
div cl 
xor ah, ah 

inc al 
mov dx, ax 
dec al 
mul cl 
pop bx 
push dx 
sub bx, ax 

mov ax, bx 
mov cx, 395 
mul cx 


x-Koordinate Mittelpunkt 
y-Koordinate Mittelpunkt 
Radius x-Richtung 
Radius y-Richtung 
Anfanswinkel in AX 

Anfangswinkel in Anfangsquadranten und 

Anfangspunkt umrechnen 

Anfangsquadrant 

Anfangspunkt 

Endwinkel in AX 

Endwinkel in Endquadranten und 
Endpunkt umrechnen 
Endquadrant 
Endpunkt 

und Punkt 

wird später noch gebraucht 

Winkel / 90 
Divisionsrest löschen 
=> INT(Winkel / 90) 

Quadrant = INT(Winkel / 90) + 1 
Quadrant retten 

(Quadrant - 1) x 90 
Winkel holen 

Teil Winkel = Winkel - (Quadrant - 1) x 
0° <= Teil Winkel < 90° 


Teil Winkel x 395, Ergebnis in DX:AX 


90 , 
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mov cx, 90 

div cx ; Punkt = (TeilWinkel x 395) / 90° 

mov bx, ax ; Werte in die richtigen Register bringen 

pop ax 

ret ; Back to happiness 


ENDP 

; Berechnung von AL x BX / 256 
PROC Mult NEAR 


xchg ax, bx 
mul bl 

; AL x BX 

REPT 8 


shr ax, 1 

; AX 8 mal rechts schieben => AX / 256 

ENDM 


ret 


ENDP 


; Ersten Quadranten zeichnen 
PROC erster NEAR 


mov [zaehll], ax 
mov [zaehl2], bx 
mov bx, 394 

; Zähler setzen 

sub bx, [zaehl1] 
mov [zaehll], bx 
mov bx, 394 
sub bx, [zaehl2] 
mov [zaehl2], bx 
QuadLoop 1, 2, 1 

; und invertieren 

ENDP 


; Zweiten Quadranten zeichnen 
PROC zweiter NEAR 


mov [zaehl1], ax 
mov [zaehl2], bx 
QuadLoop 2, 1, 2 

; Zähler setzen 

ENDP 


; Dritten Quadranten zeichnen 
PROC dritter NEAR 


mov [zaehll], ax 
mov [zaehl 2], bx 

; Zähler setzen 

mov ax, 394 
sub ax, [zaehl1] 
mov [zaehll], ax 
mov bx, 394 
sub bx, [zaehl2] 
mov [zaehl2], bx 
QuadLoop 3, 2, 1 

; und invertieren 


ENDP 
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; Vierten Quadranten zeichnen 
PROC vierter NEAR 

mov [zaehll], ax ; Zähler setzen 

mov [zaeh!2], bx 
QuadLoop 4, 1, 2 

ENDP 

PROC AsmCurve 


; Register retten 


push ax 


push bx 


push cx 


push dx 


push es 


push si 


push di 


call koor 

Koordinaten zuweisen 

cmp [anqua], 1 

Start im 1. Quadranten? 

jne ausschnitt 

mit erstem Punkt 

cmp [anpunkt], 0 

Nur Ellipsenabschnitt zeichnen? 

jne ausschnitt 


cmp [endqua], 5 

Ende wieder im 1. Quadranten? 

jne ausschnitt 

nur Ellipsenabschnitt 

cmp [endpunkt], 0 

Komplette Ellipse zeichnen? 

jne ausschnitt 

Nein -> Ellipsenabschnitt zeichnen 

je ganz 

Ja -> komplette Ellipse zeichnen 

ausschnitt: 


jmp aussch 

; Sprung zum Zeichnen eines Ellipsenabschnitts 

; komplette Ellipse zeichnen 


ganz: 


mov bx, [xm] 

; x-Koordinate Mittelpunkt in x merken 

push ax 


mov ax, [y] 

; Anfangs- und Endpunktskoordinaten berechnen 

sub ax, [yr] 

; und speichern 

mov [WORD ArcStartX], bx 


mov [WORD ArcEndX], bx 


mov [WORD ArcStartY], ax 


mov [WORD ArcEndY], ax 


pop ax 


mov [x], bx 


mov [zaehl2], 0 ; 

i Beide Zähler setzen 

mov [zaehll], 394 


CircleLoop: 


mov bx, [zaehll] 


xor ah, ah 


mov al, [BYTE costab+bx] 



Cosinus-Wert in AX 

mov bx, [xr] 

x-Radius in BX 

call mult 

AL*xr/256 berechnen 

mov [xoff], ax 

= x-offset 

mov bx, [zaehl2] 

Zähler2 
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xor ah, ah 


mov al, [BYTE costab+bx] 



Sinus-Wert holen 

mov bx, [yr] 

y-Radius 

call mult 

AL*yr/256 berechnen 

mov [yoff], ax 

= y-offset 

mov ax, [xm] 

x-Koordinate Mittelpunkt in AX 

add ax, [xoff] 

x = xm + xoff 

mov bx, [y] 

y-Koordinate in BX 

add bx, [yoff] 

y = y + yoff 

mov cx, bx 

y + yoff in CX retten 

call AsmPlot 

1. Punkt setzen 

mov bx, [y] 

y-Koordinate in BX 

sub bx, [yoff] 

y = y - yoff 

mov dx, bx 

y - yoff in DX retten 

call AsmPlot 

2. Punkt setzen 

mov ax, [xm] 

x-Koordinate Mittelpunkt laden 

sub ax, [xoff] 

x = xm - xoff 

mov bx, cx 

y + yoff laden 

call AsmPlot 

3. Punkt setzen 

mov bx, dx 

y - yoff laden 

call AsmPlot 

4. Punkt setzen 

inc [zaehl2] 

Zähler 1 erhöhen 

dec [zaehll] 

Zähler 2 erniedrigen 

jne CircleLoop 

nächsten 4 Punkte berechnen 

jmp CircleExitl 

Beide Zähler gleich -> Beenden 


; Ellipsenabschnitt zeichnen 
aussch: 


mov [zaehll], 395 ; Beide Zähler laden 

mov [zaehl2], 0 


ausloop: 


mov bx, [zaehll] 
xor ah, ah 

mov al, [BYTE costab+bx] 

mov bx, [xr] 

call mult 

mov bx, [zaehl2] 

mov [offtabl+bx], al 

xor ah, ah 

mov al, [BYTE costab+bx] 

mov bx, [yr] 

call mult 

mov bx, [zaehl2] 

mov [offtab2+bx], al 

inc [zaehl2] 

dec [zaehll] 

jne ausloop 

mov ax, [xm] 

mov [x], ax 

mov bx, [anqua] 

shl bx, 1 

shl bx, 1 

add bx, [endqua] 


; Tabelle der Offsets in x- und y-Richtung 
; aufbauen 


; Anfangsquadranten laden 
; anqua x 4 

; Endquadranten dazu addieren 
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sub bx, 5 ; 0 <= Indexwert <= 15 

shl bx, 1 ; Indexwert x 8 

shl bx, 1 
shl bx, 1 

mov ax, OFFSET jumptab 
add ax, bx 
jmp ax 


jumptab: 

call siel 

jmp CircleExitl 

nop 

nop 

call sle2 

jmp CircleExitl 

nop 

nop 

call sle3 

jmp CircleExitl 

nop 

nop 

call sle4 

jmp CircleExitl 

nop 

nop 

call s2el 

jmp CircleExitl 

nop 

nop 

call s2e2 

jmp CircleExitl 

nop 

nop 

call s2e3 

jmp CircleExitl 

nop 

nop 

call s2e4 

jmp CircleExitl 

nop 

nop 

call s3el 

jmp CircleExitl 

nop 

nop 

call s3e2 

jmp CircleExitl 

nop 

nop 

call s3e3 

jmp CircleExitl 

nop 

nop 


Diese Sprungtabelle ist nötig, da 
Assembler-Routinen in Turbo-Pascal 
keine typisierten Konstanten verwenden 
dürfen. Sonst könnte man dies wesentlich 
kürzer programmieren. 

Die NOPs dienen nur dazu, die Distanz 
zwischen den Sprungzielen auf 8 Byte 
aufzuweiten, damit die Sprungberechnung 
einfacher wird. 
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call s3e4 

jmp CircleExitl 

nop 

nop 

call s4el 

jmp CircleExitl 

nop 

nop 

call s4e2 

jmp CircleExitl 

nop 

nop 

call s4e3 

jmp CircleExitl 

nop 

nop 

call s4e4 
jmp CircleExitl 


; Start im 1., Ende im 1. Quadranten 
siel: 

CalcPoints 1, 1 
mov ax, [anpunkt] 
mov bx, [endpunkt] 
cmp ax, bx 
jle slell 
mov bx, 394 
call erster 
xor ax, ax 
jmp s2ela 

slell: mov bx, [endpunkt] 
jmp erster 

; Start im 1., Ende im 2. Quadranten 
sle2: 

CalcPoints 1, 2 
mov ax, [anpunkt] 
sle2b: mov bx, 394 
call erster 
xor ax, ax 

sle2a: mov bx, [endpunkt] 
jmp zweiter 

; Start im 1., Ende im 3. Quadranten 
sle3: 

CalcPoints 1, 3 
mov ax, [anpunkt] 
sle3c: mov bx, 394 
call erster 
xor ax, ax 
sle3a: mov bx, 394 
call zweiter 
xor ax, ax 
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sle3b: mov bx, [endpunkt] 
jmp dritter 

; Start im 1., Ende im 4. Quadranten 
sle4: 

CalcPoints 1, 4 
mov ax, [anpunkt] 
sle4c: mov bx, 394 
call erster 
xor ax, ax 
sle4a: mov bx, 394 
call zweiter 
xor ax, ax 
sle4b: mov bx, 394 
call dritter 
xor ax, ax 

sle4d: mov bx, [endpunkt] 
jmp vierter 

; Start im 2., Ende im 1. Quadranten 
s2el: 

CalcPoints 2, 1 
mov ax, [anpunkt] 
s2ela: mov bx, 394 
call zweiter 
xor ax, ax 
s2elb: mov bx, 394 
call dritter 
xor ax, ax 
s2elc: mov bx, 394 
call vierter 
xor ax, ax 
jmp slell 


; Start im 2., Ende im 2. Quadranten 
s2e2: 

CalcPoints 2, 2 
mov ax, [anpunkt] 
mov bx, [endpunkt] 
cmp ax, bx 
jle s2e22 
mov bx, 394 
call zweiter 
xor ax, ax 
jmp s3e2a 
s2e22: jmp sle2a 

; Start im 2., Ende im 3. Quadranten 
s2e3: 

CalcPoints 2, 3 
mov ax, [anpunkt] 
jmp sle3a 

; Start im 2., Ende im 4. Quadranten 
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s2e4: 

CalcPoints 2, 4 
mov ax, [anpunkt] 
jmp sle4a 

; Start im 3., Ende im 1. Quadranten 
s3el: 

CalcPoints 3, 1 
mov ax, [anpunkt] 
jmp s2elb 

; Start im 3., Ende im 2. Quadranten 
s3e2: 

CalcPoints 3, 2 
mov ax, [anpunkt] 
s3e2a: mov bx, 394 
call dritter 
xor ax, ax 
s3e2b: mov bx, 394 
call vierter 
xor ax, ax 
jmp sle2b 

; Start im 3., Ende im 3. Quadranten 
s3e3: 

CalcPoints 3, 3 
mov ax, [anpunkt] 
mov bx, [endpunkt] 
cmp ax, bx 
jle s3e33 
mov bx, 394 
call dritter 
xor ax, ax 
jmp s4e3a 
s3e33: jmp sle3b 

; Start im 3., Ende im 4. Quadranten 
s3e4: 

CalcPoints 3, 4 
mov ax, [anpunkt] 
jmp sle4b 

; Start im 4., Ende im 1. Quadranten 
s4el: 

CalcPoints 4, 1 
mov ax, [anpunkt] 
jmp s2elc 

; Start im 4., Ende im 2. Quadranten 
s4e2: 


CalcPoints 4, 2 
mov ax, [anpunkt] 
jmp s3e2b 
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; Start im 4., Ende im 3. Quadranten 
s4e3: 

CalcPoints 4, 3 
mov ax, [anpunkt] 
s4e3a: mov bx, 394 
call vierter 
xor ax, ax 
jmp sle3c 

; Start im 4., Ende im 4. Quadranten 
s4e4: 

CalcPoints 4, 4 
mov ax, [anpunkt] 
mov bx, [endpunkt] 
cmp ax, bx 
jle s4e44 
mov bx, 394 
call vierter 
xor ax, ax 
jmp sle4c 
s4e44: jmp sle4d 

CircleExitl: 

pop di 
pop si 
pop es 
pop dx 
pop cx 
pop bx 
pop ax 
ret 

ENDP 


; Alle Registerinhalte wieder 
; laden 


; Back home 


; CURVE.ASM: Regelt die Parameterübernahme von Turbo Pascal aus für 

; die ASMCURVE-Routine in Turbo Assembler 

9 

; Autor: Frank Riemenschneider 
> 

; Eingabe: Parameter der CURVE-Funktion auf dem Stack 

Circle( XM, YM, XR, YR, AnfWinkel, EndWinkel:WORD ); 

; Ausgabe: keine 

CODESEG 


PROC Curve FAR XMP:W0RD, YMP:W0RD, XRA:W0RD, YRA:W0RD, AnfWinkel:W0RD, EndWinkel:WORD 
PUBLIC Curve 


mov ax, [XMP] ; Mittelpunkt-Koordinaten 

mov bx, [YMP] 

mov cx, [XRA] ; Radius in x- und y-Richtung 

mov dx, [YRA] ; Koordinaten prüfen 

cmp ax, 0 ; x-Koordinate < 0? 
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jl CircleExit 
cmp ax, 239 
jg CircleExit 
cmp bx, 0 
jl CircleExit 
cmp bx, 63 
jg CircleExit 
mov si, [AnfWinkel] 
cmp si, 0 
jl CircleExit 
cmp si, 359 
jg CircleExit 
mov es, si 
mov si, [EndWinkel] 
cmp si, 0 
jl CircleExit 
cmp si, 360 
jg CircleExit 
call AsmCurve 

CircleExit: 

ret 

ENDP 


2.5.8 Tortenstück zeichnen 

Im Zeitalter gestreßter Manager werden Präsentationsgrafiken immer 
wichtiger, damit diese die aktuellen Umsätze mit einem Blick erfassen 
können, ohne vorher endlose Zahlenkolonnen durchforstet zu haben. Eine 
beliebte Darstellungsart ist dabei die Tortengrafik. Um ein zweidimen¬ 
sionales Tortenstück zu zeichnen, sind »nur« zwei Linien und ein Ellipsen¬ 
abschnitt nötig - kein Problem also, wie es scheint. Doch wie so oft liegt 
der Teufel im Detail: Während die Ellipsenroutine mit Winkeln und Radien 
rechnet, benötigt die Linien-Routine kartesische Koordinaten für ihren 
Start- und Endpunkt. Nun, auch dies scheint zunächst kein Problem zu 
sein, da man die äußeren beiden Punkte der Ellipse über die Sinus- bzw. 
Cosinus-Funktion ermitteln kann (s.o.). Leider können diese beiden 
Funktionen aber so ungenau arbeiten, daß eine Verschiebung von einem 
Grafikpunkt im Bereich des Möglichen liegt. Die anschließend gezeichne¬ 
ten Linien enden also nicht unmittelbar an der Ellipse, sondern einen 
Punkt daneben. Dies wäre auch nocht nicht so schlimm, wenn man nicht 
das Tortenstück mit Farbe füllen möchte. Dann nämlich nimmt das 
Unglück seinen Lauf: Da die Fläche nicht geschlossen ist, wird der 
gesamte Bildschirm gefüllt, oder/und das Programm stürzt ab. Deshalb 


; x-Koordinate > 239? 

; y-Koordinate < 0? 

; y-Koordinate > 63? 

; Anfangswinkel laden 
; Anfangswinkel < 0°? 

; Anfangswinkel > 359°? 

; Endwinkel laden 
; Endwinkel < 0°? 

; Endwinkel > 360°? 

; Curve-Routine aufrufen 

; Back home 
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haben die Pascal-Entwickler in weiser Voraussicht die Slice -Routine pro¬ 
grammiert, die ein Tortenstück zeichnet. Hier nun die entsprechende 
Routine für die Portfolio-Unit. 


; ASMPIESLICE.ASM: Zeichnet ein 2D-Kuchenstück, d.h. einen Ellipsenbogen 
; und Linien vom Mittelpunkt zum Anfangs- und Endpunkt des Bogens 

; Autor: Frank Riemenschneider 

; Eingabe: AX = x-Koordinate Ellipsenmittelpunkt (0-239) 

; BX = y-Koordinate Ellipsenmittelpunkt (0-63) 

; CX = Radius in x-Richtung (0-255) 

; DX = Radius in y-Richtung (0-255) 

; ES = Anfangswinkel in Grad (0-359°) 

; SI = Endwinkel in Grad (0-360°) 

; Ausgabe: keine 

DATASEG 

; Benötigte Variable 
extrn ArcStartX : DWORD 
extrn ArcStartY : DWORD 
extrn ArcEndX : DWORD 
extrn ArcEndY : DWORD 

CODESEG 

PR0C AsmPieSlice 

; Register retten 
push ax 
push bx 
push cx 
push dx 
push es 
push si 
push di 

call AsmCurve 
mov cx, [WORD ArcStartX] 

mov dx, [WORD ArcStartY] 
call AsmLine 
mov cx, [WORD ArcEndX] 
mov dx, [WORD ArcEndY] 
call AsmLine 
pop di 
pop si 
pop es 
pop dx 


; Ellipsenbogen zeichnen 

; Koordinaten des Startpunktes des Bogens 
; laden 

; Linie vom Mittelpunkt dorthin ziehen 
; Koordinaten des Endpunktes des Bogens 
; laden 

; Linie vom Mittelpunkt dorthin ziehen 
; Alle Registerinhalte wieder 
; laden 
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pop cx 
pop bx 
pop ax 
ret 


ENDP 


; SLICE.ASM: Regelt die Parameterübernahme von Turbo Pascal aus für 

; die ASMPIESLICE-Routine in Turbo Assembler 

; Autor: Frank Riemenschneider 

; Eingabe: Parameter der SLICE-Funktion auf dem Stack 

; Slice( XM, YM, XR, YR, AnfWinkel, EndWinkel:W0RD ); 

; Ausgabe: keine 

CODESEG 

PROC Slice FAR XMP:W0RD, YMP:W0RD, XRA:W0RD, YRA:W0RD, AnfWinkel:W0RD, EndWinkel:W0RD 


PUBLIC Slice 

mov ax, [XMP] 

; Mittelpunkt-Koordinaten 

mov bx, [YMP] 
mov cx, [XRA] 

; Radius in x- und y-Richtung 

mov dx, [YRA] 
mov es, [AnfWinkel] 

; Anfangs- und Endwinkel 

mov si, [EndWinkel] 

; Koordinaten prüfen 

cmp ax, 0 

; x-Koordinate < 0? 

jl PieSliceExit 
cmp ax, 239 

; x-Koordinate > 239? 

jg PieSliceExit 
cmp bx, 0 

; y-Koordinate < 0? 

jl PieSliceExit 
cmp bx, 63 

; y-Koordinate > 63? 

jg PieSliceExit 
cmp cx, 0 

; x-Radius < 0? 

jl PieSliceExit 
cmp cx, 255 

; x-Radius > 255? 

jg PieSliceExit 
cmp dx, 0 

; y-Radius < 0? 

jl PieSliceExit 
cmp dx, 255 

; y-Radius > 255? 

jg PieSliceExit 
push ax 
mov ax, es 
cmp ax, 0 

; Anfangswinkel < 0°? 

jl PieSliceExit 
cmp ax, 359 

; Anfangswinkel > 359°? 

jg PieSliceExit 
pop ax 
cmp si, 0 

; Endwinkel < 0°? 
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jl PieSliceExit 
cmp si, 360 
jg PieSliceExit 
call AsmPieSlice 
PieSliceExit: 
ret 


; Endwinkel > 360°? 

; PieSlice-Routine aufrufen 
; Back home 


ENDP 


2.5.9 Beliebige Flächen ausfüllen 

Der komplizierteste Teil der Grafikroutinen besteht darin, beliebige 
Flächen auszufüllen. Ich möchte Ihnen an dieser Stelle einen linienorien¬ 
tierten Algorithmus vorstellen, der anders als viele andere Verfahren sich 
nicht »Punkt für Punkt« in alle Richtungen vortastet, sondern jeweils eine 
horizontale Linie zeichnet. Bedingt durch die Tatsache, daß die Routine 
zum Zeichnen einer solchen Linie sehr schnell ist (s.o.), ergeben sich nicht 
unerhebliche Geschwindigkeitsvorteile gegenüber den punktorientierten 
Verfahren, zumal wesentlich weniger Rekursionsaufrufe erforderlich sind 
und damit auch die Gefahr des Stack-Überlaufs vermindert wird. 

Als Beispielfläche soll die Figur in Bild 2.7 dienen, wobei der Startpunkt 
der Füllroutine mit P gekennzeichnet ist. Als erstes wird überprüft, ob 
dieser Punkt vielleicht schon gesetzt ist, worauf die Routine beendet 
werden kann. Ist dies nicht der Fall, wird solange um eine Zeile nach oben 
gewandert, bis ein gesetzter Punkt erreicht wird. In diesem Fall wird 
wieder um eine Zeile nach unten verzweigt und gleichzeitig ein Schritt 
nach rechts getätigt. Dieses Verfahren wird solange wiederholt, bis man 
nicht nur oben gegen eine Begrenzung stößt, sondern auch rechts. Man 
hat also den rechten oberen Eckpunkt der Figur erreicht. Den Weg dorthin 
zeigt Bild 2.7, in der Assemblerroutine befinden wir uns an dem Label L2. 

Der Eckpunkt wird abgespeichert, da er später noch benötigt wird. Als 
nächstes wird jetzt solange nach links gewandert, bis auch hier gegen eine 
Begrenzung gestoßen wird. Nachdem auch diese Koordinaten gespeichert 
wurden, wird eine Linie zwischen diesen beiden äußeren Punkten gezeich¬ 
net. Man sieht, daß sich oberhalb der Linie noch freie Punkte befinden, die 
bislang nicht erfaßt werden konnten. Deshalb wird in einem nächsten 
Schritt ab Label L3 eine Zeile nach oben geschritten und vom linken End¬ 
punkt der Linie bis zum rechten Startpunkt geprüft, ob nicht gesetzte 
Punkte auftreten. Da man sich ja in der Zeile mit der Begrenzung der 
Figur befindet, kann ein fehlender Punkt nur bedeuten, daß die Figur 
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nach oben weiterläuft oder die Begrenzung ein Loch hat, was allerdings 
sehr bitter wäre. Wird also ein fehlender Punkt entdeckt, ruft sich die 
Routine mit diesem Punkt als Startpunkt rekursiv selbst auf, d.h., der 
gesamte Algorithmus wird nun auf das freie Feld oberhalb der gezeich¬ 
neten Linie angewendet. Dafür müssen natürlich zunächst alle Variablen 
gesichert werden, damit nach Beendigung der Rekursion mit ihnen weiter¬ 
gerechnet werden kann und sie nicht zwischenzeitlich zerstört werden. 
Nachdem das Feld gefüllt ist, wird nach weiteren Leerpunkten gesucht, bis 
die rechte Begrenzung der Figur erreicht ist. In unserem Fall ist also ein 
weiterer Rekursionsaufruf erforderlich. Nachdem die rechte Begrenzung 
erreicht ist, stellt sich die Figur wie in Bild 2.8 dar. 


Endounkt l.Linie 


• O* 

•o* 

4**ü*«* 


V 


Startounkt 1.Linie 


•OOOüOi tOOOOO# 

•OOOOO# *00000* 

•OOOOO* *00000* 

Ii***OüüOO******QjOOüO** 

_r joooooaoo o ooooafrooo r- 

•OOOOOOOOOOOOOOOOOOOOOOOOOQj 

•OOOOOOOÜOOOOOOOOOQÖOOOOOOO 


/i 


••* 
•o* 
•o* 
•o* 
._o****o*** 

OOOOÜOOOO* 


.oooooooooooooooooooo'ogooooooo* 

•oooooooooooooooooooooö******** 

•OOOOOOOOOOOOOOOOOOOOööÄV 

•••«•«••#**#****ooooo*** x 

•OOOOO* StBrtpunkt 
• OOOOO* Fl II-Rout in 
•OOOOO* 

•OOOOO* 

•OOOOOl- 


0= Nicht gesetzter Punkt 
• = Gesetzter Punkt 


•ODO* 

•ooo* 
•ooo* 
•ooo* 
•ooo* 
•ooo* 
•ooo* 
■»ooo* 


•OOOOOOOOOOOOOOOOOO oooooo* 
•oooooooooooooooooooooooo* 


Bild 2.7: Weg zum 
Startpunkt der 
Füllung 


Startounkt 1. Rekurs Ionsaufruf 



_ *00000* 

••# *jioooo* *ooooo* #•• 

•O* *00000* *00000* *0* 

•o* *****oooo****#*ooooo**** *o* 

***o*************************** *o* 

•ooooooooooooooooooooooooooooo****o*** 
•oooooooooooooooooooooooooooooooooooo* 
•*••••••ooooooooooooooooooooooooooooo* 

•OOOOOOOOOOOOOOOOOOOOÖO******** 
•OOOOOOOOOOOOOOOOoooooo• 

••••••••••••••••OOOOO*** 

•OOOOO* 

•OOOOO* 

•OOOOO* 

•OOOOO* 

•OOOOO*- 


o = Nicht gesetzter 
• = Gesetzter Punkt 


•ooo* 

•ooo* 

•ooo« 

•ooo* 

•ooo* 

•ooo* 

•ooo* 

»ooo* 


•oooooooooooooooooooooooo* 

•oooooooooooooooooooooooo* 


Bild 2.8: Füllung 
oberhalb der Startlinie 


Nun wird die Figur zeilenweise nach unten abgearbeitet (ab Label L5). 
Dabei wird wiederum die linke sowie rechte Begrenzung gesucht und eine 
Linie zwischen beiden gezogen. Man muß jedoch aufpassen: Auch nach 
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unten können sich noch zu füllende Bereiche anschließen. Wie erkennt 
man diese Fälle? 

Den ersten Fall haben wir auf der linken Seite der Figur: Die linke Koordi¬ 
nate der zu zeichnenden Linie ist offenbar kleiner als die der darüber¬ 
liegenden. Daraus kann man schließen, daß noch ein Flächenteil nach 
oben anschließt. Man prüft also in der darüberliegenden Zeile (die weiter 
rechts beginnende), ob noch ein freier Punkt links von diesem Anfangs¬ 
punkt existiert, und zwar solange, bis man die linke Koordinate der 
darunterliegenden Linie erreicht hat. In unserem Fall wird ein freier Punkt 
gefunden und die Routine rekursiv auf diesen freien Flächenteil ange¬ 
wendet (Bild 2.9). Der zugehörige Programmteil befindet sich ab Label L9. 


Startpunkt 



Endpunkt 2. Linie 


B tM 

#58 

•o* 

•O* 

HO««« 

•OODDOOOOOOOOOOOOOÖODOOOOÖÖDOOÜOOOOOO* 
■»•••••••OOOOOOOOOOOOOOOOOOOOOOOOOOOOO* ••••« 

•OOOOOOOOOOOOOOOOOOOOOO******** •Oüü# 

•OüüOüüüOüüOOOOOOODOÖOü* *000* 

••••••••••••••••üüüüü*** •üüüi 

•OOOOO* •Oüü* 

•üüüüü* •Oüü* 

•üüüüü* •Oüü* 

M1 *00000* *ooo* 

ü= Nicht gesetzter Punkt «00000****************000* 

*= Gehetzter »‘unkt *000000000000000000000000* 

•OüüOOOOOOOOOOOOOOOOOOOOO* 


Bild 2.9: Füllung von 
Flächen auf der linken 
Seite 



Bild 2.10: Füllung 
von Flächen auf der 
rechten Seite 


Der zweite Fall tritt ähnlich auf der rechten Seite auf: Hier ist die größere 
x-Koordinate der unteren Linie ein Indiz dafür, daß sich noch verborgene 
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Flächenteile oberhalb der unteren Linie befinden könnten. Also wird in 
Höhe der oberen Linie soweit nach rechts gegangen, bis die rechte Koordi¬ 
nate der unteren längeren Linie erreicht wird. Befindet sich in diesem Teil 
noch ein freier Punkt, muß die Routine auf diesen angesetzt werden (Bild 
2.10). Im Listing wird dieser Fall ab Label LI 1 behandelt. 

Der letzte Fall tritt unten ein: Hier kann es passieren, daß ein Zipfel nach 
unten herausragt, wie es in unserer Figur der Fall ist. Diesen Fall kann 
man daran erkennen, daß die untere Linie nicht einen weiter rechts 
liegenden Endpunkt aufweist als die obere Linie, wie dies im letzten Fall 
auftrat, sondern einen weiter links liegenden. Man prüft also Spalte für 
Spalte, ob ein Punkt fehlt, bis man schließlich den rechten Endpunkt der 
darüberliegenden Linie erreicht hat. Fehlt ein Punkt, wird die Routine 
wieder rekursiv aufgerufen (Bild 2.11). Ab Label L10 steht der zugehörige 
Programmteil. 



Bild 2.11: Füllung von 
Flächen auf der 
unteren Seite 


Was aber passiert nun, wenn wie in unserem Fall der untere Zipfel selbst 
noch einen weiteren nach oben aufweist? Nun, die Routine wird ganz ein¬ 
fach nochmals rekursiv aufgerufen, diesmal jedoch eine Ebene tiefer. Die 
zulässige Verschachtelungstiefe wird nur durch die Größe des Stack 
bestimmt. Wenn man aber eine maximale Verschachtelungstiefe von 10 
ansetzt, die kaum von einer Figur überboten werden dürfte (Sie können 
sich ja mal eine Figur ausdenken, die 20 Rekursionen erfordert!), werden 
jedesmal nur elf Wörter plus der Rücksprungsadresse auf den Stack 
geschrieben, also 24x10=240 Byte. Dies ist wirklich nicht viel, wenn man 
bedenkt, daß Turbo Pascal die Stackgröße auf 16384 Byte voreinstellt! 

Auf diese Weise wird Zeile für Zeile nach unten abgearbeitet, bis auf einen 
gesetzten Punkt gestoßen wird. Dann wird solange nach rechts gelaufen, 
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bis entweder ein leerer Punkt gefunden wird oder die rechte Koordinate 
der darüberliegenden Zeile erreicht wurde. In letzterem Fall ist die 
Gesamtfüllung abgeschlossen. 


; ASMFILL.ASM: Füllt eine beliebige Fläche aus 

; Autor: Frank Riemenschneider 

; Eingabe: AX = x-Koordinate Füllpunkt (0-239) 

; BX = y-Koordinate Füllpunkt (0-63) 

; Ausgabe: keine 

DATASEG 

; Benötigte Variable 


speicher21 dw ? 
speicher22 dw ? 
speicher31 dw ? 
speicher32 dw ? 
speichert dw ? 
speicher42 dw ? 
tcolor dw ? 


extrn färbe : word; 

extrn fillcolor : word 

CODESEG 

PROC ZieheLinie Near 
push di 
push si 
push dx 
push cx 
mov dx,bx 
Call AsmLine 
pop cx 
pop dx 
pop si 
pop di 
ret 

ENDP 

PROC TestPunkt Near 
push cx 
push dx 
push di 
push si 
Call AsmTest 
mov al,dl 
pop si 
pop di 
pop dx 
pop cx 
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cmp al,[BYTE tcolor] 
ret 

ENDP 


PROC AsmFill 
mov dx,ax 
mov bp,bx 
call TestPunkt 
jnz LI 
jmp Lai 
LI: 

dec bp 
mov ax,dx 
mov bx,bp 
call TestPunkt 
jnz LI 
inc bp 
inc dx 
mov ax, dx 
mov bx, bp 
call TestPunkt 
jnz LI 


jaktuelle Spalte 
jaktuelle Zeile 
;Startpunkt gesetzt? 

;Ja, dann Ende 

;Zei1e vermindern 


;Punkt gesetzt? 

;Nein, weiter nach oben wandern 
;Ja, ein Schritt nach rechts und 
;nach unten machen 

;Dieser Punkt auch gesetzt? 

;Nein, weiter nach oben wandern 


mov ax.dx 
dec ax 

mov [speicher21],ax 
mov [speicher22],bp 

dec dx 
mov ax,dx 
mov bx.bp 
call TestPunkt 
jnz L2 


;Ja, rechte obere Ecke der Figur 
jerreicht 

;Diese Koordinaten merken 


;Solange nach links wandern, bis 
•.gesetzter Punkt erreicht wird 


inc dx 
mov ax.dx 
mov si,ax 
mov bx,bp 
mov di,bx 

mov cx, [speicher21] 
call ZieheLinie 
dec bp 
mov dx,si 

cmp dx,[speicher21] 

ja L5 

mov ax.dx 

mov bx,bp 

call TestPunkt 

jnz La40 

inc dx 

jmp L3 


;Koordinaten merken (in Si X und in Di Y) 


;Li nie von diesem Punkt zum rechten Punkt 
jzeichnen 

;Eine Zeile nach oben wandern (auf obere 
;Begrenzung der Figur) 

;rechte Begrenzung erreicht, dann 
•.keine Lücke mehr nach oben 
;Punkt gesetzt? 

;Nein, d.h. Lücke nach oben 

;nächste Spalte bearbeiten 


La40: 
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push si 
push di 

mov ax,[speicher21] 
push ax 

mov ax,[speicher22] 
push ax 

mov ax, [speicher31] 
push ax 

mov ax,[speicher32] 
push ax 

mov ax,[speichert] 
push ax 

mov ax,[speicher42] 

push ax 

mov ax,dx 

push ax 

mov bx,bp 

push bx 

Call AsmFill 

pop bp 

pop dx 

pop ax 

mov [speicher42],ax 
pop ax 

mov [speicher41],ax 
pop ax 

mov [speicher32],ax 
pop ax 

mov [speicher31],ax 
pop ax 

mov [speicher22],ax 
pop ax 

mov [speicher21],ax 
pop di 
pop si 
jmp L3 


;Fi 11 —Routine aufrufen 


;Nach Füllung der Lücke Variablen wieder 
;vom Stack holen 


mov bx,di 
inc bx 
mov bp,bx 
mov ax,si 
mov dx,ax 

mov [speicher32],bx 
mov [speicher42],bx 
call TestPunkt 
jnz La4 

inc dx 
mov ax,dx 
mov bx,bp 
Call TestPunkt 
jnz La5 

mov ax,[speicher21] 


;1inken Ausgangspunkt der Zeile 
jnehmen (X und Y) für weiteres Vorgehen 


;Zeile merken 

;Punkt gesetzt? 

; Nei n 

;Ja : Spalte solange erhöhen, bis 

jentweder gesetzter Punkt gefunden wurde 
;oder Spalte größer als rechte Begrenzung 
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cmp dx,ax 
jna L6 
ja La5 

La4: 

dec dx 
mov ax,dx 
mov bx,bp 
call TestPunkt 
jnz La4 
inc dx 

La5: 

mov [speicher31],dx 
mov ax,[speicher21] 
cmp dx,ax 
jna L8 
jmp Lai 
L8: 

inc dx 
mov ax,dx 
mov bx,bp 
call TestPunkt 
jnz L8 
dec dx 

mov ax,[speicher31] 
mov bx,[speicher32] 
mov cx,dx 
call ZieheLinie 
mov [speicher41],dx 
mov ax,si 
dec ax 

cmp ax,[speicher31] 
ja La22 
jmp La8 

La22: 

mov dx,si 
mov bp,di 
L9: 

dec dx 
mov ax,dx 
mov bx,bp 
call TestPunkt 
jz La81 
push si 
push di 

mov ax,[speicher21] 
push ax 

mov ax,[speicher22] 
push ax 

mov ax,[speicher31] 
push ax 

mov ax,[speicher32] 
push ax 

mov ax,[speicher41] 
push ax 


jdarüberliegenden Zeile ist (d.h. rechte 
juntere Ecke der Figur gefunden!!!) 

;Wenn Ursprungspunkt nicht gesetzt, Spalte 

;solange vermindern, bis gesetzter Punkt 

;gefunden wird. 


;Spalte merken als linken Eckpunkt der Linie 

;Falls größer als rechter Eckpunkt der 
;darüberliegenden Linie, rechte, untere Ecke 
;der Figur gefunden, d.h. Fi 11—Ende 

;wenn nicht größer: Rechten Eckpunkt der Linie 

;suchen, indem Spalte erhöht wird 


•»Linie zeichnen 


;Spalte des rechten Eckpunktes der Linie merken 
;Beginnt Linie weiter links als die 

jdarüberliegende??? 

;Ja, Sonderfall 1 


;Sonderfall 1: Figurzipfel auf linker 
;Seite muß gefüllt werden 


;Frei er Punkt gefunden, dann füllen 
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La81: 


mov ax,[speicher42] 

push ax 

mov ax,dx 

push ax 

mov bx,bp 

push bx 

Call AsmFill 

pop bp 

pop dx 

pop ax 

mov [speicher42],ax 
pop ax 

mov [speicher41] ,ax 
pop ax 

mov [speicher32],ax 
pop ax 

mov [speicher31],ax 
pop ax 

mov [speicher22],ax 
pop ax 

mov [speicher21],ax 
pop di 
pop si 

cmp dx,[speicher31] 
jnz L9 


;Fi 11-Routine aufrufen 


;Nach Füllung der Lücke Variablen wieder 
;vom Stack holen 


;Nur bis zum linken Ausgangspunkt 
;der Linie prüfen 


La8: 

mov ax,[speicher41] 
inc ax 

cmp [speicher21],ax 
ja La21 
jmp La9 

La21: 

mov dx,[speicher41] 
mov bp, [speicher42] 

L10: 

inc dx 
mov ax,dx 
mov bx,bp 
call TestPunkt 
jz La91 
push si 
push di 

mov ax, [speicher21] 
push ax 

mov ax, [speicher22] 
push ax 

mov ax, [speicher31] 
push ax 

mov ax,[speicher32] 
push ax 

mov ax,[speicher41] 
push ax 


;Endet Linie weiter rechts als die 
;darüberliegende??? 

;Ja, Sonderfall 2 


;Sonderfall 2: Figurzipfel auf rechter 
;Seite muß gefüllt werden 


;Frei er Punkt gefunden, dann füllen 
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La91: 


mov 

push 

mov 

push 

mov 

push 

Call 

pop 

pop 

pop 

mov 

pop 

mov 

pop 

mov 

pop 

mov 

pop 

mov 

pop 

mov 

pop 

pop 

cmp 

jnz 


ax,[speicher42] 
ax 

ax,dx 

ax 

bx,bp 

bx 

AsmFill 

bp 

dx 

ax 

[speicher42],ax 
ax 

[speicher41],ax 
ax 

[speicher32],ax 
ax 

[speicher31],ax 
ax 

[speicher22],ax 
ax 

[speicher21],ax 

di 

si 

dx,[speicher21] 
L10 


;Fi 11—Routine aufrufen 


;Nach Füllung der Lücke Variablen wieder 
;vom Stack holen 


;Nur bis zum rechten Endpunkt der 
;Li nie prüfen 


La9: 

mov ax,[speicher41] 
dec ax 

cmp ax,[speicher21] 
ja La20 
jmp LalO 

La20: 

mov dx, [speicher21] 
mov bp,[speicher22] 

LI 1: 

inc dx 
mov ax,dx 
mov bx,bp 
call TestPunkt 
jz LalOl 
push si 
push di 

mov ax,[speicher21] 
push ax 

mov ax,[speicher22] 
push ax 

mov ax,[speicher31] 
push ax 

mov ax,[speicher32] 
push ax 

mov ax,[speicher41] 
push ax 


;Endet Linie weiter links als die 
;darüberliegende??? 

;Ja, Sonderfall 3 


;Sonderfall 3: Figurzipfel an unterer Seite 
;muß gefüllt werden 


;Frei er Punkt gefunden, dann füllen 
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mov ax, [speicher42] 

push ax 

mov ax,dx 

push ax 

mov bx,bp 

push bx 

Call AsmFill 

pop bp 

pop dx 

pop ax 

mov [speicher42],ax 
pop ax 

mov [speicher41] ,ax 
pop ax 

mov [speicher32],ax 
pop ax 

mov [speicher31],ax 
pop ax 

mov [speicher22] ,ax 
pop ax 

mov [speicher21],ax 
pop di 
pop si 
LalOl: 

cmp dx,[speicher41] 
jnz Lll 


LalO: 


mov si, [speicher31] 
mov di, [speicher32] 
mov ax, [speicher41] 
mov [speicher21],ax 
mov ax,[speicher42] 
mov [speicher22],ax 
jmp L5 


Lai: 

ret 

ENDP 

FILL.ASM: 


;Fi 11 —Routine aufrufen 

;Nach Füllung der Lücke Variablen wieder 
;vom Stack holen 


;Nur bis zum linken Ausgangspunkt der 
;Li nie prüfen 


;Darüberliegende Linie = aktuelle Linie 


;nächste Linie bearbeiten 


Regelt die Parameterübernahme von Turbo Pascal aus für 
die ASMFILL-Routine in Turbo Assembler 


Autor: Frank Riemenschneider 
Eingabe: 

Ausgabe: 

CODESEG 


Parameter der FILL-Funktion auf dem Stack 

Fi 11( X, Y, Farbe:WORD ); 

keine 


PROC Fi 11 FAR XMPiWORD, YMPiWORD, FÄRB:WORD 
PUBLIC Fi 11 
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mov ax, [FÄRB] 
mov [tcolor],ax 
mov ax, [XMP] 
mov bx, [YMP] 
cmp ax, 239 
jg FillExit 
cmp bx, 63 


; Mittelpunkt-Koordinaten 


; x-Koordinate > 239? 


; y-Koordinate > 63? 


jg FillExit 
push cx 
push dx 
push si 
push di 
push bp 

mov dx,[färbe] 
push dx 

mov dx,[fillcolor] 
mov [färbe],dx 
call AsmFill 
pop dx 

mov [färbe],dx 

pop bp 

pop di 

pop si 

pop dx 

pop cx 


FillExit: 


; Back home 


ret 


ENDP 


2.5.10 Die Text-Routine 

Der Grafikmodus bietet gegenüber dem Textmodus fast nur Vorteile, kann 
man doch jeden Pixel einzeln ansteuem. Der einzige Nachteil besteht 
darin, daß man eben keinen Text auf den Bildschirm schreiben kann: Der 
Videocontroller interpretiert eingegebene Byte-Werte eben nicht mehr als 
die ASCII-Daten eines Zeichens, sondern als Bitmuster eines Grafikbyte. 
Daher ist es erforderlich, eine eigene Routine zu programmieren, wenn 
man Text auch auf dem Grafikschirm darstellen möchte. Man sollte diese 
Gelegenheit beim Schopf ergreifen und den etwas einfältigen Textmodus 
des Videocontrollers erweitern: So ist es sicherlich sinnvoll, eine Vergröße¬ 
rung des Textes in x- und y-Richtung zuzulassen, um Überschriften 
besser herausheben zu können. Auch das Kippen des Textes um 90, 180, 
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270 oder 360 Grad kann zur Beschriftung bestimmter Grafiken geeignet 
sein. Wie kann man dies realisieren? 

Nun, zunächst muß man sich darüber im klaren sein, wie ein Zeichen 
überhaupt aufgebaut ist. Jede moderne Grafikkarte besitzt ein sogenann¬ 
tes Character-ROM. Hierbei handelt es sich um einen Baustein, in dem die 
Grafikdaten jedes Zeichens byteweise nach einem bestimmten, von Grafik¬ 
karte zu Grafikkarte verschiedenen Muster abgelegt sind. Will der 
Controller ein Zeichen im Textmodus auf den Bildschirm bringen, sieht er 
gewissermaßen im ROM nach und liest die entsprechenden Daten aus. 
Das Problem besteht nun darin, daß man als Programmierer keinen 
Zugriff auf das Character-ROM hat, da dieses nicht »ausdekodiert« ist, d.h., 
man hat über den Adreßbus keine Möglichkeit, das ROM zu adressieren. 
Zum Glück gibt es jedoch beim PC die IBM-Color-Karte, die sogenannte 
CGA-Karte. Diese Trivialkarte besitzt kein Charakter-ROM. Deshalb 
implementierte man im BIOS des Computers (ab Segment $F000, Offset 
$FA6E) die Grafikdaten eines 8x8-Pixel-Zeichensatzes, um überhaupt 
Zeichen mit dieser Karte darstellen zu können. Dieser Zeichensatz ist also 
immer verfügbar, egal ob Sie eine Hercules-, EGA- oder VGA-Karte besit¬ 
zen, und kann einfach ausgelesen werden. Der Portfolio besitzt dieses 
ROM natürlich nicht, so daß man hier keinen Zugriff hat. Man muß sich 
die Tabelle der Grafikdaten somit selbst anlegen. 

Da jeder Grafikpunkt 1 Bit belegt, sind für die Speicherung eines Zeichens 
somit 8x8 Bit = 64 Bit = 8 Byte erforderlich. Dabei sind die Daten in der 
Reihenfolge der ASCII-Codes abgelegt, so daß man z.B. die Anfangsadresse 
der Grafikdaten des Zeichens »A« (ASCII-Code 65) nach der Formel 

Offset = Tabellenstart + 8x65 

berechnen kann. In einem Byte ist immer eine komplette Zeile eines 
Zeichens abgespeichert, so daß z.B. das zweite Byte für die zweite Zeile 
zuständig ist usw. Das höchstwertigste Bit eines Bytes repräsentiert dabei 
den am weitesten links liegenden Grafikpunkt, das niederwertigste den am 
weitesten rechts liegenden. So kann man sich leicht überlegen, wie z.B. 
die 8 Byte des Zeichens »A« auszusehen haben: 

Bit 76543210 


Zei 1 e 

0 

. .XX_ 

Zei 1 e 

1 

.xxxx... 

Zeile 

2 

XX 

XX. . 

Zei 1 e 

3 

xxxxxx.. 

Zei 1 e 

4 

XX 

XX.. 

Zei 1 e 

5 

XX 

XX. . 

Zei 1 e 

6 

XX 

XX. . 

Zei 1 e 

7 
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Die unterste Zeile bleibt immer frei, um ein Unterstreichen des Zeichens 
zu ermöglichen, die beiden rechten Spalten, um den notwendigen Abstand 
zum nächsten Zeichen zu erhalten. In der Zeile Null sind die Bits 5 und 4 
gesetzt, d.h., das erste Byte weist den Wert 32+16 = 48 auf. Das zweite, 
vierte, fünfte und sechste Byte sind identisch aufgebaut und weisen den 
Wert 128+64+8+4 = 204 auf. Auf die gleiche Weise können die Werte des 
ersten und dritten Bytes ermittelt werden, während das siebte Byte Null 
ist. Wenn man sich beim PC mit DEBUG den entsprechenden Speicher¬ 
inhalt ab $F000:$FC76 ansieht, erkennt man, daß die ersten acht Byte 
unser »A« darstellen. 

Die Textroutine muJ3 also abhängig davon, ob ein Bit gesetzt ist oder nicht, 
den entsprechenden Grafikpunkt setzen oder löschen, wobei jeder Punkt 
in x-Richtung so oft gesetzt werden muß, wie dies durch den Vergröße¬ 
rungsfaktor festgelegt wurde. Normalerweise erhält man den nächsten 
Punkt innerhalb einer Zeile dadurch, daß man einen Punkt in x-Richtung 
fortschreitet und die y-Koordinate unverändert läßt. Um ein Kippen des 
Textes zu ermöglichen, kann man diesen Weg aber auch flexibel hand¬ 
haben, so würde z.B. durch eine Bewegung um einen Punkt in y-Richtung 
und das Konstanthalten der x-Koordinate eine Rotation um 90 Grad 
erreicht. Allgemein gesprochen benötigt man also zwei Variablen, die fest¬ 
legen, um wie viele Pixel in x- bzw y-Richtung gelaufen werden muß, um 
den nächsten Punkt innerhalb einer Zeile zu erreichen. In unserer Routine 
sind die Variablen su (Bewegung nach oben/unten) und sl (Bewegung 
nach links/rechts) dafür zuständig. 

Hat man eine Zeile abgearbeitet, muß man das nächste Byte auslesen und 
an den Anfang der folgenden Zeile springen. Auch hierfür werden zwei 
Variablen zu (Bewegung nach oben/unten) und zl (Bewegung nach 
links/rechts) eingeführt, die der Routine mitteilen, um wie viele Punkte in 
x- bzw. y-Richtung der neue Zeilenanfang relativ zum Zeilenanfang der 
vorhergehenden Zeile zu sehen ist. Bei horizontaler Textausrichtung muß 
man natürlich einen Punkt in y-Richtung laufen, während die x-Koordi- 
nate konstant bleibt (Differenz: Null Punkte). Bei gekipptem Text sind ent¬ 
sprechend andere Werte erforderlich. An dieser Stelle fällt auf, daß man 
praktisch als kostenlose Zugabe die Möglichkeit der Kursivschrift hat, 
wenn man den neuen Zeilenanfang so festlegt, daß man sich um einen 
Punkt in x- und y-Richtung bewegt. Insgesamt bieten sich zwölf sinnvolle 
Schriftvariationen an. Die folgende Tabelle listet den jeweiligen Schrifttyp 
zusammen mit den erforderlichen Daten für su, si, zu und zl auf: 
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Schrifttyp 

Rotation 

zl 

ZU 

sl 

SU 

Normal 

0 Grad 

0 

l 

1 

0 

Linkskursiv 

0 Grad 

-1 

i 

1 

0 

Rechtskursiv 

0 Grad 

1 

l 

1 

0 

Normal 

90 Grad 

1 

0 

0 

-1 

Linkskursiv 

90 Grad 

1 

-l 

0 

-1 

Rechtskursiv 

90 Grad 

1 

l 

0 

-1 

Normal 

180 Grad 

0 

-l 

-1 

0 

Linkskursiv 

180 Grad 

-1 

-l 

-1 

o' 

Rechtskursiv 

180 Grad 

1 

-i 

-1 

0 

Normal 

270 Grad 

-1 

0 

0 

1 

Linkskursiv 

270 Grad 

-1 

-1 

0 

1 

Rechtskursiv 

270 Grod 

-1 

1 

0 

1 


Nachdem ein Zeichen auf den Bildschirm gebracht wurde, kann mit dem 
nächsten Zeichen fortgefahren werden. Der Textroutine wird ein Pointer 
(Segment/Offset) auf den auszugebenden String übergeben, wobei die 
Länge des Strings im ersten Zeichen auszulesen ist. 


; ASMTEXT.ASM: Schreibt einen Text in den Grafik-Bildschirm 

; Autor: Frank Riemenschneider 

; Eingabe: AX = x-Koordinate (0-239) 

; BX = y-Koordinate (0-63) 

; SI = Offsetadresse des Textes 

; Ausgabe: keine 

DATASEG 

CharSetSeg = ObOOOh 
CharSetOfs= 007d0h 
extrn Farbe : word 
extrn zu : word 
extrn zl : word 
extrn su : word 
extrn sl : word 
extrn zch : word 
extrn spt : word 
extrn xver : word; 
extrn yver : word; 

CODESEG 
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push ax 
push bx 
push cx 
push dx 
push es 
push si 
push di 


; Erst mal alle Register retten, die 
; nicht schnell genug in den nächsten 
; Stack kommen 


mov dx, CharSetSeg 
mov es, dx 
push ds 

mov cx, [TextSeg] 
mov ds,cx 
mov cl, [si] 
xor ch, ch 
pop ds 
inc si 


; Segment der Zeichentabelle in 
; ES laden 

; Segment Text holen 
; Länge des Textes holen 

; Zeiger auf ersten Buchstaben 


TextLoopl: 


push ax 
push bx 
push cx 


; Zeichenzähler retten 

push ds 


; Datensegment Pascal retten 

mov cx. 

[TextSeg] 

; Segment Text holen 

mov ds,cx 


mov cl, 

[si] 

; ASCII-Code des Buchstabens holen 

pop ds 
push bx 
xor ch. 

ch 


shl cx, 

1 

; Zeichenmatrix beginnt innerhalb < 

mov bx. 

cx 


shl cx. 

1 

; Tabelle an der Adresse (ASCII—Co< 

add cx. 

bx 


pop bx 
mov di, 

CharSetOfs 

; Offset der Zeichentabelle laden 

add di, 

cx 

; ES:DI auf erste Zeile der Matrix 

mov cx, 

6 

; Spaltenzähler laden 


TextLoop2: 

push cx 

mov cx, [xver] 


; Spaltenzähler retten 
; Vergrößerungsfaktor X 


TextLoop5: 

mov dl, [es:di] 
push cx 
push ax 
push bx 
push di 
push es 
mov cx, 8 
TextLoop3: 

push cx 


; Zeile der Zeichenmatrix holen 

; Koordinaten merken 
; von Ausgangspunkt Spalte 
; Zeiger auf Zeichentabelle retten 

; Pixel zähl er laden 

; Pixel zähl er retten 
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mov dh,l 

; Annahme : Punkt gesetzt 

shr dl, 1 

; Pixel ins Carry schieben 

je TextLabl 

; Punkt gesetzt -> in Vordergrundfarbe 


; setzen 

mov dh, 0 

; Punkt in Hintergrundfarbe setzen 

TextLabl: 


mov cx, [yver] 


TextLoop4: 


emp dh,0 


je TextLab6 


call AsmPlot 

; Punkt setzen 

TextLab6: 


add bx, [zu] 

; y-Koordinate weiterzählen 

add ax, [zl] 

; x-Koordinate weiterzählen 

loop TextLoop4 


pop cx 

; Pixel zähl er wieder laden 

loop TextLoop3 

; Weitere Punkte setzen 

pop es 

; Zeiger auf Zeichentabelle wieder laden 

pop di 


pop bx 

; y-Koordinate zurücksetzen 

pop ax 

; x-Koordinate zurücksetzen 

add ax, [sl] 

; Nächste Spalte bearbeiten 

add bx, [su] 


pop cx 


loop TextLoop5; 


pop cx 

; Spaltenzähler wieder laden 

inc di 


loop TextLoop2 


pop cx 

; Zeichenzähler wieder laden 

pop bx 


pop ax 


add ax, [zch] 

; Nächstes Zeichen 

add bx, [spt] 


inc si 

; plotten 

loop TextLoopl 


pop di 

; Alle Register wieder von den Bäumen, 

pop si 

; äh, vom Stack herunterholen 

pop es 


pop dx 


pop cx 


pop bx 


pop ax 


ret 

; Back home 


ENDP 
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; TEXT.ASM: Regelt die Parameterübernahme von Turbo Pascal aus für 

; die ASMTEXT-Routine in Turbo Assembler 

9 

; Autor: Frank Riemenschneider 

9 

; Eingabe: Parameter der TEXT-Prozedur auf dem Stack 

; TestPixel( X, Y, TextSeg, TextOfs : WORD ); 

; Ausgabe: keine 

CODESEG 

PROC Text FAR Xkoord:W0RD, Ykoord:W0RD, TextSeg:WORD, TextOfs:WORD 
PUBLIC Text 

mov ax, [TextOfs] 
mov si, ax 
mov ax, [Xkoord] 
mov bx, [Ykoord] 
call AsmText 
TextExit: 

ret 


; x- und y-Koordinaten in die 
; entsprechenden Register bringen 
; Text-Routine aufrufen 

; Back home 


ENDP 

Zum Abschluß möchte ich Ihnen noch die Struktur der Grafik-Unit an 
Hand der unterschiedlichen Abhängigkeiten und Aufrufe aller Grafik¬ 
routinen nahebringen: 



Bild 2.12: 
Strukturierung der 
Grafikbefehle 
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2.6 Chart-Grafiken auf dem Portfolio 

Nachdem die theoretischen Grundlagen für die Grafikprogrammierung 
nun vorhanden sind, wollen wir uns natürlich auch praktische Ergebnisse 
anschauen. Als Demonstrationsobjekt habe ich mir die Darstellungen von 
Chart-Grafiken ausgedacht, da es sich hierbei um ein Thema handelt, für 
das der Portfolio von allen Computern am ungeeignesten zu sein scheint. 
Wie Sie aber gleich sehen werden, kann man den Werbeslogan einer Auto¬ 
firma (»Nichts ist unmöglich!«) durchaus auch für den Portfolio mißbrau¬ 
chen. Die Bilder in diesem Abschnitt wurden übrigens von der PC-Version 
dieses Programms übernommen, da sie doch wesentlich attraktiver aus- 
sehen als die des Mini-Bildschirms des Portfolio. 

Zunächst soll es darum gehen, Ihnen die Funktion des Beispielprogramms 
nahezubringen. Starten Sie es dazu bitte mit dem Befehl: 

CHAJRT.EXE 

Es handelt sich um ein Chart-Grafik-Programm, dessen Aufgabe darin 
besteht, z.B. Umsatzzahlen oder Wahlergebnisse grafisch aufzubereiten 
und damit verständlicher zu machen. Nach dem Programmstart können 
Sie mit [FT] ins Hauptmenü gelangen. Von dort können Sie in das Daten¬ 
menü oder Graßkmenü weiterverzweigen. Das Grafik-Menü bleibt dabei so 
lange unwählbar, bis Daten eingeladen wurden (logisch, was soll denn 
ohne Daten dargestellt werden?). Das Programm besitzt eine eigene 
Eingaberoutine, die wesentlich zuverlässiger arbeitet als die Read-Proze- 
dur von Turbo Pascal. Dies erkennen Sie z.B. daran, daß Sie nur eine Zahl 
(keine anderen Zeichen) und genau ein Zeichen eingeben können. In dem 
ganzen Programm werden Sie an Hand der in spitzen Klammem stehen¬ 
den Eingabefelder die maximal zulässige Eingabelänge sehen, wenn Sie 
über die rechte Begrenzung hinauskommen, werden keine Eingaben mehr 
akzeptiert. Beginnen wir also mit dem Einrichten einer Datei, indem Sie 
im Dateimenü den Menüpunkt Datei einrichten an wählen. 

Auf dem Bildschirm erscheint zunächst die Frage nach der Anzahl der 
sogenannten Datenblöcke. Dies können je nach Verwendungszweck z.B. 
Parteien oder Artikelbezeichnungen sein. Sie können bis zu 1000 Blöcke 
in der Datei anlegen, wir wollen uns aber bescheiden geben und nur fünf 
Blöcke nehmen. Nun werden Sie für jeden Datenblock nach einem Titel 
gefragt; dies können z.B. Abkürzungen für Parteinamen (CDU, CSU, SPD, 
Grüne etc.) oder Artikelbezeichnungen sein (Omo, Sunil etc. bei einem 
Waschmittelhändler). Anschließend werden Sie nach dem Laufwerk und 
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dem Pfadnamen gefragt, auf dem die Datei angelegt werden soll. Geben Sie 
hier a:\pfadname für ein CCM an oder c:\pfadname, falls Sie die eingebaute 
RAM-Disk benutzen möchten. Soll die Datei ins Hauptverzeichnis 
geschrieben werden, kann die Eingabe des Pfadnamens natürlich entfal¬ 
len, wobei aber zu beachten ist, daß hinter der Laufwerksbezeichnung 
kein Backslash (\) eingegeben werden darf, da die Datei sonst ins aktuelle 
Verzeichnis geschrieben wird. Nach der Eingabe stellt das Programm fest, 
wieviel Speicherplatz auf dem Laufwerk vorhanden ist und berechnet 
damit die maximal zulässige Anzahl der sogenannten Datensätze. Dies 
können z.B. bei Parteien die zugehörigen Wahlen sein (1972, 1976 etc.) 
oder bei Artikeln die monatlichen Umsatzzahlen. Die Dateigröße wird 
wirklich nur durch den zur Verfügung stehenden Speicherplatz des Lauf¬ 
werks begrenzt, so daß Sie bei der PC-Version des Programms bei der 
Verwendung einer Festplatte einen gigantischen Wert erhalten. Geben Sie 
z.B. die Zahl 100 ein. Anschließend muß noch der Dateiname eingegeben 
werden, der maximal acht Zeichen lang sein darf, wie es DOS fordert. 
Daraufhin wird die Datei eingerichtet, d.h.; es werden Fantasiedaten auf 
das Laufwerk geschrieben, die den benötigten Speicher allokieren. Durch 
dieses Verfahren ist gewährleistet, daß Sie die vorher festgelegten Daten¬ 
zahlen später auch eingeben können, da andere Programme den Speicher¬ 
platz nicht mehr »stibitzen« können. Auf der anderen Seite wird später 
dann nur noch in diese Datei geschrieben, d.h., es werden keine Daten 
mehr angehängt, so daß die Dateigröße über ihr gesamtes »Leben« 
konstant bleibt, egal wie viele Datensätze Sie eingeben. Natürlich ist es 
aber nicht möglich, mehr Eingaben zu tätigen als bei der Einrichtung 
festgelegt wurde. Falls Sie also noch unsicher sind, wie viele Datensätze 
Sie einmal benötigen werden, legen Sie lieber eine zu große als zu kleine 
Anzahl fest. Nachdem die Datei eingerichtet wurde, wird wieder ins 
Hauptmenü zurückgesprungen. 

Als nächstes müssen Daten eingegeben werden. Dazu wählen Sie den 
Menüpunkt Daten eingeben im Datenmenü aus. Nach der Eingabe des 
Laufwerks und des Dateinamens (die Voreinstellungen können mit [ Return | 
übernommen werden) werden Sie nach dem ersten Datensatz gefragt, der 
bearbeitet werden soll. Geben Sie hier eine Zahl zwischen 1 und dem 
letztmöglichen Datensatz ein (hier: 100), sinnvoll ist die 1, da ja noch 
überhaupt keine Daten eingegeben wurden. Nun erscheint der aus¬ 
gewählte erste Datensatz samt Fantasietitel (FMRIE) sowie ein Mini- 
Untermenü mit folgenden Funktionen: Durch (T| wird der aktuell ange¬ 
zeigte Datensatz (hier: 1) bearbeitet. Konkret heißt dies, daß nacheinander 
alle Datenblöcke mit den zugehörigen Werten (Fantasiewerte 3006.65, da 
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noch keine sinnvollen Daten eingegeben wurden) angezeigt werden und 
eingegeben werden können. Hier zeigt sich nun eine weitere Funktion 
unserer Luxus-Eingaberoutine: Sie können den Wert durch den Druck der 
I Return | -Taste übernehmen oder eine neue Eingabe starten. In diesem Fall 
verschwindet die Voreinstellung aus dem Eingabefeld und braucht somit 
nicht komplett überschrieben zu werden. Geben Sie nun irgendwelche 
Zahlen für die einzelnen Datenblöcke ein. Zum Schluß können Sie noch 
einen Untertitel für den Datensatz festlegen, z.B. LW90 (Landtagswahl 
1990) bei Wahlen oder Jan89 (Januar 1989) bei Umsatzzahlen. Der 
Datensatz wird nun in die Datei eingetragen. Mit den Funktionen [n] und 
[v] springen Sie zu dem vorhergehenden bzw. nächsten Datensatz, mit (T) 
und Q wird in Zehnerschritten gesprungen. Geben Sie ein paar Daten¬ 
sätze zur Übung ein und verlassen Sie den Menüpunkt, indem Sie (T) 
betätigen. 

Als nächsten Dateimenüpunkt haben wir das Einlesen von Daten. Nach 
der Anwahl des Menüpunktes Daten laden müssen Sie erneut Laufwerk 
und Dateinamen eingeben. Weil auf der Diskette zum Buch eine sehr 
umfangreiche Beispieldatei vorhanden ist, geben Sie bitte als Laufwerk a: 
und als Dateinamen demo ein. In dieser Datei sind Getränkeumsätze von 30 
Marken im Zeitraum von 1906 bis 1989 gespeichert. Auf dem Bildschirm 
können Sie nun 17 der 30 Datenblöcke auswählen, die in den Speicher 
eingeladen werden sollen. Dazu werden die zugehörigen Titel aufgelistet. 
Mit den Cursor-Tasten (T) und (7) können alle Artikel durchgerollt werden, 
durch die Tasten [ Bi 1 di | und [ Bi 1 dt [ wird bildschirmweise gesprungen. Auf 
der rechten Bildschirmseite befindet sich ein sogenanntes Gadget 
(Dingsda). Dieser Rollbalken zeigt die aktuelle Bildschirmposition an, was 
besonders sinnvoll ist, wenn Sie mehrere hundert Datenblöcke zu verwal¬ 
ten hätten. Falls Sie einen Datenblock laden möchten, bewegen Sie den 
Auswahlpfeil vor dessen Namen und drücken Sie die Leertaste. Es 
erscheint ein Stern vor dem jeweiligen Namen, um die Auswahl zu quittie¬ 
ren. Durch einen erneuten Druck der Leertaste wird der Datenblock 
wieder deselektiert, der Stern verschwindet. Haben Sie bereits 17 Daten¬ 
blöcke markiert, können Sie keinen weiteren mehr festlegen, da 17 die 
voreingestellte maximal zulässige Anzahl der Datenblöcke darstellt. Sie 
müssen dann erst wieder einen oder mehrere Blöcke deselektieren, um 
weitere anwählen zu können. Durch | Return | wird die Auswahl abgeschlos¬ 
sen. Als nächstes müssen Sie den Datensatz festlegen, an dem die Aus¬ 
wahl der Datensätze gestartet werden soll. Das bedeutet nicht, daß dieser 
geladen wird, sondern nur, daß der Dateipointer auf diesen Datensatz 
gesetzt wird. Nun erscheint ein ähnliches Menü wie bei der Dateneingabe. 
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Mit (T) wird der aktuell angezeigte Datensatz geladen, mit den Tasten (¥), 
(V), 0 und Q bewegen Sie sich innerhalb der Datei. Zusätzlich haben Sie 
mit der Taste 0 die Möglichkeit, mehrere Datensätze in einem Rutsch zu 
laden: Dazu positionieren Sie den Pointer auf dem ersten zu ladenden 
Datensatz, wählen mit [r] diese Funktion an und geben anschließend die 
Zahl der zu ladenden Datensätze ein. Maximal können 700 Datensätze 
geladen werden, so daß insgesamt 17x700 = 11900 Zahlen im Speicher 
gehalten werden können. Falls Sie alle Datensätze beisammen haben, 
können Sie den Menüpunkt mit [Ä] verlassen. 

Jetzt können wir endlich zur grafischen Darstellung der Daten übergehen. 
Als erstes wollen wir uns mit der zweidimensionalen Balkengrafik 
beschäftigen. Hierbei werden bis zu sechs Datenblöcke und bis zu 36 Daten¬ 
sätze verarbeitet, indem die Zahlen als Balken nebeneinander dargestellt 
werden. Man kann also sowohl zwischen einzelnen Datenblöcken und 
Datensätzen vergleichen (z.B. prozentuale Wahlergebnisse, Umsätze etc.). 
Die diversen Datenblöcke innerhalb eines Datensatzes werden durch 
unterschiedliche Muster herausgestellt (Bild 2.13). 



Bild 2.13: 
Balkengrafik 


Nach der Auswahl des Menüpunktes Balkertgraßk h im Grafikmenü 
werden Sie zunächst gefragt, welches der erste anzuzeigende Datenblock 
sein soll und wie viele Datenblöcke Sie anzeigen möchten (indirekt durch 
Festlegung des letzten Datenblocks). Abhängig von der Anzahl der Blöcke 
können Sie dann entsprechendes für die Datensätze festlegen. Nun sollte 
die Grafik auf dem Bildschirm aufgebaut werden. Das Programm 
beschriftet die Grafik automatisch, indem zu jedem Muster der zugehörige 
Datenblock geschrieben wird und zudem der erste und letzte Datensatz 
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erwähnt werden. Durch die | Return | -Taste wird ins Hauptmenü zurück¬ 
gekehrt. 

Als nächstes wollen wir die ganze Sache dreidimensional darstellen. 
Wählen Sie hierzu den Menüpunkt Säulengrafik im Grafikmenü an. Die 
Säulengrafik entspricht der Balkengrafik, die Säulen der einzelnen Daten¬ 
blöcke werden jedoch dreidimensional dargestellt (Bild 2.14). 


Bild 2.14: 

Dreidimensionale 

Säulengrafik 



Auch diese Grafik wird automatisch beschriftet, indem neben der Daten¬ 
blockreihe der zugehörige Name ausgegeben wird. 

Nachdem Sie nach dem Druck der (TT] -Taste wieder im Hauptmenü gelan¬ 
det sind, kommen wir nun zu den Kuchen- oder Tortengrafiken. Diese 
werden dazu benutzt, um den Anteil eines Datenblocks bzw. Datensatzes 
an der Gesamtheit der dargestellten Datenblöcke bzw. Datensätze zu 
verdeutlichen, was mit den Balken- und Säulengrafiken nur schwer 
möglich ist (z.B. Sitzverteilung der Parteien im Bundestag, Anteil eines 
Artikels am Gesamtumsatz etc.). Zunächst wollen wir uns mit der zwei¬ 
dimensionalen Variante beschäftigen, indem Sie bitte den Menüpunkt 
Tortengrafik 2d eingeben. Im Gegensatz zu den beiden vorherigen 
Grafikarten kann hier immer nur ein Datenblock mit mehreren Daten¬ 
sätzen oder ein Datensatz mit mehreren Datenblöcken angezeigt werden. 
Abhängig davon, ob Sie bei den Datenblöcken nur einen auswählen 
(indem Sie als ersten und letzten Datenblock die gleiche Nummer 
angeben), haben Sie die Möglichkeit, einen oder mehrere Datensätze 
auszuwählen. Zunächst könnten Sie z.B. mehrere Datenblöcke auswählen 
(bis zu acht erlaubt). Dann werden Sie bei den Datensätzen zwar noch 
nach dem ersten darzustellenden gefragt, das Programm verhindert aber 
automatisch eine Eingabe des letzten Datensatzes, da ja nur einer verar- 
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beitet werden kann. Um nicht einfach eine runde Scheibe auf dem Bild¬ 
schirm zu haben, wurde die Grafik als sogenannte Explosionsgrafik konzi¬ 
piert, d.h., es sieht so aus, als ob wie bei einem Urknall alle Tortenstücke 
von der Mitte aus auseinandergesprengt worden wären. Dies sieht attrak¬ 
tiver aus als eine einfache Scheibe, finden Sie nicht auch? 



Bild 2.15: 
Zweidimensionale 
Tortengrafik mit 
mehreren 
Datenblöcken 



Büd 2.16: 
Zweidimensionale 
Tortengrafik mit 
mehreren Datensätzen 


Als Alternative können Sie wie gesagt auch nur einen Datenblock dar¬ 
stellen. In diesem Fall können Sie mehrere Datensätze festlegen, die Frage 
nach dem letzten Datensatz erscheint also wieder. Wenn Sie Bild 2.15 mit 
Bild 2.16 vergleichen, stellen Sie fest, daJ3 beide Grafiken völlig unter¬ 
schiedlichen Aussagewert haben: Während in dem zweiten Bild die Um¬ 
sätze mehrerer Getränkesorten in einem Monat verglichen werden, um 
z.B. die Ladenhüter im Winter ausmachen zu können, wird im ersten Bild 
der Umsatz einer Sorte über mehrere Monate dargestellt, vielleicht um die 
Werbung in umsatzschwachen Monaten verstärken zu können. 
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Wenn Sie wieder im Grafikmenü angelangt sind, können Sie durch den 
Menüpunkt Tortengrafik 3d die dreidimensionale Tortengrafik anwählen, 
für die alles gilt, was auch für die zweidimensionale gesagt wurde. Da aber 
keine Tortenstücke mehr herausgezogen werden müssen, können Sie statt 
acht maximal neun Datenblöcke/Sätze grafisch aufbereiten. Welche 
Grafikform als schöner empfunden wird, bleibt Ansichtssache. 



Bild 2.17: 

Dreidimensionale 

Tortengrafik 


Als letztes verbleibt die gestapelte Balkengrafik, mit der man bis zu sechs 
Datenblöcke und 36 Datensätze darstellen kann, also ein richtiger 
»Datenfresser« ist und die durch den Grafikmenüpunkt Balkengrafik v 
ausgewählt wird. Nachdem man wie bei der Standard-Variante (vgl. Bild 
2.13) die Datenblöcke und Datensätze festgelegt hat, wird die Grafik 
aufgebaut. Die Anzahl der Datensätze ist wie bei der Säulengrafik unab¬ 
hängig von der Anzahl der Datenblöcke, da diese übereinander angezeigt 
werden. Diese Grafik ist besonders aussagekräftig, wenn es darum geht, 
den Gesamtumsatz aller Artikel zu vergleichen (die Balkenhöhe ist der 
Summe aller Datenblöcke proportional). Man kann aber auch innerhalb 
eines Balkens ablesen, welche Artikel am meisten und am wenigsten zu 
der Summe beigetragen haben. 

Als nächsten Hauptmenüpunkt haben wir eine Toggle-Funktion 
»Druckstatus«. Falls Sie diesen anwählen, wird die Ausgabe »Ausdruck« 
auf dem Bildschirm wechselweise zwischen »Ja« und »Nein« wechseln. Bei 
»Ja« wird nach dem Aufbau einer Grafik eine Hardcopy auf einem Matrix¬ 
drucker ausgegeben. Es können alle 9- oder 24-Nadel-Drucker verwendet 
werden, die Epson-kompatibel sind, d.h., die den ESC/P-Befehlssatz 
verstehen. Mit dem letzten Hauptmenüpunkt Programmende wird das 
Programm beendet, wobei alle geladenen Daten verlorengehen. 
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Bild 2.18: Gestapelte Balkengrafik 


PROGRAM chartgrafik; 

{ written 1989,1990 by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71 } 


{$H 

{Prüfung I/O vom Programm, nicht vom Compiler} 

{$N+} 

{Coprozessor 8087 - Befehle erzeugen} 

{$E+} 

{Emulator einschalten, weil kein Coprozessor 
installiert ist.} 

{-} 

{- Beginn des Modifizierteils!!! -} 

{-} 

uses dos,printer,portcrt»portgraf; 

{$M 10000,5500,5500} 

{10000 Bytes Stack, Heap 5500 Bytes} 


C0NST 

maxsaetze : word = 50; 
maxbloecke : byte = 20; 
graphpath : String = 1 c:\'; 


{maximal ladbare Zahl Datensätze} 
{maximal ladbare Zahl Datenblöcke} 
{Übergabe-Prameter für Grafik-Unit} 


TYPE 
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datensatz = record 
satz : array[0..50] of string[5]; 

{Untertitel Datensätze z.B. 1 Jan85' für Umsatz Januar 1985} 

block : array[0..20] of string[10]; 

{Untertitel Datenblöcke z.B. 'Erdinger' für eine 
sehr gut schmeckende Weißbiersorte!} 

zahlen: array[0..20,0..50] of single; 

{Eigentliche Daten, z.B. Umsatzzahlen} 

END; 

blockzahl = array[1..20] of word; 
satzladezahl = array[1..50] of word; 


(-} 

{- Ende des Modifizierteils!!! -} 

{-} 

CONST 

maxdatablock : word = 100; {maximale Blockzahl in Datei} 
hardcopy : array[0..1] of string[4] = ('Ja ','Nein 1 ); 
fullstern : string[39] - 
'xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 ; 
randstern : string[l] = 'x 1 ; 

datenmenue : array[1..3] of string = ('Datei einrichten','Daten laden', 

'Daten eingeben'); 

grafikmenue : array[1..5] of string = ('Balkengrafik h','Baikengrafik v 

'Säulengrafik','Tortengrafik 2d' 
'Tortengrafik 3d'); 

hauptmenue : array[1..4] of string = ('Datenmenü','Grafikmenü', 

'Druckstatus','Programmende'); 


TYPE 

blockdata = array[l..100] of string[10]; 

VAR 

daten : Datensatz; {Insgesamt nur 16 (!) globale 

Variablen} 

hpunkt,punkt,druck : byte; 
s : string; 

i,j,k,loadblock : word; 
loadsatz : longint; 
eblo,anzbl,esa,anzsa : word; 

letztpfad : string[25]; {letzter eingegebener Pfad} 

letztname : string[8]; {letzter eingegebener Dateiname} 
input : char; 


{- 

{- UNTERPROGRAMME 

{- 
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{— Texteingabe: Bildschirmeingabe eines Textes —) 

{— Eingabe: Stringvariable, Koordinatenpaar —} 

{- x,y (0..79,0..24), maximale Länge, } 

{— Status (0=nur numerische Zeichen,l=alle), —} 

{— Voreinstellung —} 

{— Ausgabe: String in Variable ss —} 


procedure Eingabe(VAR ss : String ; x,y,maxlaenge, 
numerisch : byte; vs: string); 

VAR taste : byte; 

1aenge : byte; 
i : byte; 
flag : boolean; 

BEGIN 

GotoXY(x,y); 
write(vs); 

GotoXY(x,y); 
ss := "; 

1aenge := 0; 
flag := true; 

REPEAT 

REPEAT 

UNTIL Keypressed; 

taste := Ord(ReadKey); {ASCII—Code holen} 

IF flag THEN BEGIN 
IF taste <> 13 THEN BEGIN 
FOR i:= 1 to length(vs) DO BEGIN 
write(‘ '); 

END; 

GotoXY(x,y); 

END 

ELSE BEGIN 
ss := vs; 

END; 

END; 

flag := false; 

CASE taste of 

{Bei numerischen Zeichen (0,..,9, -,+,.) hier beginnen} 

43.46.48.. 57 : BEGIN 

IF 1aenge < maxiaenge THEN BEGIN 
inc(x); 
inc(laenge); 
write(chr(taste)); 
ss := ss + chr(taste); 

END; 

END; 

{Bei anderen Zeichen (a,..,z,A,..,Z,\,[,],(,),!," 
,$,%,x,Leer) hier beginnen} 

32.. 47.58..93.97..154 : BEGIN 
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IF ((laenge < maxlaenge) and 
(numerisch <>0)) THEN BEGIN 
inc(x); 
inc(laenge); 
write(chr(taste)); 
ss := ss + chr(taste); 

END; 

END; 

{Hier beginnen, wenn Backspace gedrückt. (Über Scan-Code)) 

8 : BEGIN 

IF laenge > 0 THEN BEGIN 
dec(x); 
dec(laenge); 

GotoXY(x,y); {Letztes Zeichen löschen) 

write(' '); 

GotoXY(x,y); 

ss := copy(ss,l,Length(ss)-l); 

END; 

END; 

END; 

UNTIL taste = 13; {Abschluß mit RETURN) 

writeln; 

END; 


{— Standardbild: Hintergrundbildschirm aufbauen —} 
{— Eingabe: Keine —} 
{— Ausgabe: Keine —} 


procedure Standardbild; 

VAR i : byte; 

BEGIN 

ClrScr; 

write('xxxxxxx M&T CHART V 1.1 xxxxxxx'); 

GotoXY(0,0); 

FOR i := 1 to 6 DO BEGIN 
GotoXY(0,i); 
write(randstern); 

GotoXY(38,i); 
write(randstern); 

END; 

GotoXY(0,7); 
write(fullStern); 

END; 

{— Fehler: Fehlermeldung ausgeben —} 

{— Eingabe: Meldung (String) —) 

{— Ausgabe: Keine —} 

procedure fehl er(s : String); 

BEGIN 

Standardbild; 
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GotoXY(2,2); 
write(s); 

GotoXY(2,4); 

write(‘Weiter mit <RETURN> .'); 

readln; 

END; 


{— Einrichten: Datei einrichten (beliebig groß) 
{— Eingabe: Keine 
{— Ausgabe: Keine 


—} 
—} 
—} 


procedure Einrichten; 

VAR bioecke: word; 
s,laenge : string; 
drive : byte; 

platz,maxsatz,saetze : longint; 

block : blockdata; 

i,j,k : longint; 

f : file; 

code : integer; 

CONST 

dummyzahl : single = 3006.1965; {Geburtsdatum des Autors} 

dummystring : string[5] = 'FMRIE'; {Initialien desselben } 


BEGIN 

Standardbild; 

GotoXY(2,2); 

write('Datenblöcke (1-',maxdatablock,') : < >'); 

str(maxdatablock,laenge); 

REPEAT 

Eingabe(s,22+length(laenge),2,5,0,"); 
val(s,bioecke,code); 

UNTIL ((bioecke >=1) and (bioecke <=maxdatablock)); 

FOR i:= 1 to bioecke DO BEGIN 
GotoXY(2,4); 

write('Datenblock Nummer ',i); 

GotoXY(2,5); 

write('Untertitel : < >'); 

Eingabe(s,16,5,10,1,''); 
block[i] := s; 

END; 

Standardbild; 

GotoXY(2,2); 

write('Laufwerk und Pfadname :'); 

GotoXY(2,3); 

write('< >'); 

Eingabe(s,3,3,25,l,letztpfad); 

IF copy(s,length(s),1) <> '\* THEN s := s + '\'; 
drive := ord(UpCASE(s[l]))-64; 
platz := DiskFree(drive); 

platz := platz - Round(platz/100); {1 % Reserve} 

IF platz > ((bloecke*ll)+6) THEN BEGIN {Zeile 1} 
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{Anzahl Datensätze berechnen: Vorhandene Speicherkapazität 
insgesamt: platz. In der Info-Datei belegt jeder Datenblock 
11 Byte (Stringlänge = 10 plus 1 Byte Länge des String). 
Weiterhin je 6 Byte für die Anzahl der Datenblöcke und 
Datensätze (word+longint = 6 Byte) = 12 Byte. Der Rest 
des Speichers steht für die Hauptdatei zur Verfügung und wird 
durch die Anzahl der Datenblöcke geteilt, wobei pro Datensatz 
noch 6 Bytes für den Untertitel (5 plus 1 Längenbyte) 
reserviert werden müssen.} 

letztpfad := s; 

maxsatz := Trunc((platz-bloecke*ll-6)/(6+bloecke*4)); 

GotoXY(2,5); 

write('Datensätze (1-',maxsatz,') : < >'); 

str(maxsatz,laenge); 

REPEAT 

Eingabe(s,21+1ength(laenge),5,10,0, 1 '); 
val(s,saetze,code); 

UNTIL ((saetze >=1) and (saetze <=maxsatz)); 

Standardbild; 

GotoXY(2,2); 

write('Dateiname : < >'); 

Eingabe(s,15,2,8,l,letztname); 
letztname := s; 

{Ab hier wird die Info-Datei erstellt} 

Assign(f,ehr(drive+64)+‘:'+s+‘.inf'); 
rewrite(f,l); 

IF IOResult = 0 THEN BEGIN {Zeile 2} 

GotoXY(2,4); 
write('Info-Datei'); 

blockwrite(f,bioecke,2); {Anzahl Datenblöcke schreiben} 
k := IOResult; 

IF k = 0 THEN BEGIN 

blockwrite(f,saetze,4); {Anzahl Datensätze schreiben} 
k := IOResult; 

END; 

1 l; 

WHILE ((k = 0) and (i<= bioecke)) DO BEGIN 
GotoXY(15,4); 
write('Block ',i); 
blockwrite(f,block[i],11); 

k := IOResult; {Block-Untertitel schreiben} 

inc(i); 

END; 

close(f); 

IF k=0 THEN BEGIN {Zeile 3} 

{Ab hier wird die Hauptdatei erstellt} 

Assign(f,chr(drive+64)+':'+s+'.dat 1 ); 
rewrite(f,1); 
k := IOResult; 
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If k = 0 THEN BEGIN 
GotoXY(2,4); 
write('Haupt-Datei'); 


i := 1; 

WHILE ((k = 0) and (i<= saetze)) DO BEGIN 
GotoXY(15,4); 
write('Datensatz : 1 ,i); 
blockwrite(f,dummystring,6); 
k := IOResult; 

inc(i); {Dummy-Untertitel schreiben} 

j := 1; 

WHILE ((k = 0) and (j <= bioecke)) DO BEGIN 
str(j.s); 

GotoXY(15,5); 

write('Datenblock : '); 

GotoXY(31-length(s),5); 
write(j); 

blockwrite(f»dummyzahl,4); 
k := IOResult; 

inc(j); {Dummy-Zahlen schreiben} 

END; 

END; 

close(f); 

IF k<>0 THEN fehl er('Fehler beim Schreiben der Hauptdatei!'); 
END {von Zeile 4} 

ELSE BEGIN 


fehler('Fehl er beim Öffnen der Hauptdatei!'); 


END; 

END {von Zeile 3} 

ELSE BEGIN 


fehler('Fehler beim Schreiben der Info-Datei!'); 

END; 

END {von Zeile 2} 

ELSE BEGIN 

fehler('Fehl er beim Öffnen der Info-Datei!'); 

END; 

END {von Zeile 1} 

ELSE BEGIN 


fehler('Kein Platz auf Laufwerk *+s[l]+': !'); 


END; 

END; 


{— Scroll: Bildschirmausschnitt nach oben/unten rollen —} 

{— Eingabe: Interruptnummer, Zeile für Ausgabe, -} 

{— nachrückende Ausgabe, Zeile für Pfeil —} 

{— Ausgabe: Keine —} 


procedure scrol1(Intnr,zeile : byte; block : String; 

pfeil : byte); 

VAR reg : registers; 

BEGIN 

reg.ch := 2; {Zeile linke obere Ecke} 

reg.cl := 3; {Spalte linke obere Ecke} 

reg.dh := 5; {Zeile untere rechte Ecke} 
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reg.dl := 20; 
reg.bh := 7; 
reg.al := 1; 
reg.ah := Intnr; 
Intr(16,reg); 

GotoXY(3,zeile); 
write(block); 
GotoXY(2,pfeil); 
write('>'); 

END; 


{Spalte untere rechte Ecke} 
{Leerzeilen in Hintergrundfarbe} 
{Anzahl Zeilen, um die gesrollt wird} 
{nach oben = 6, nach unten = 7} 
{Interrupt hex. 10, Funktion 6/7, 
in PC INTERN auf Seite 925/926} 
{Nachrückende Zeile ausgeben} 


{— waehlen: Datenblöcke aus Liste auswählen —} 
{— Eingabe: Anzahl vorhandener Datenblöcke, —} 
{— Datenblocknamen, gewählte Blöcke, —} 
{— maximale Anzahl wählbare Datenblöcke —} 
{— Ausgabe: Anzahl gewählter Datenblöcke —} 
function waehlen(bloecke : word; block : blockdata; 


VAR blocknummer : blockzahl; maxblock : word) : word; 
VAR 

zahl,pos,ya : word; 
wähl : byte; 
i,j,k : word; 
gewaehlt : blockdata; 

BEGIN 

FOR i:= 1 to bioecke DO BEGIN {Alle Blöcke nicht gewählt} 
gewaehlt[i] := ' '; 

END; 

zahl := 0; 

Standardbild; 

FOR i := 2 to 5 DO BEGIN 
GotoXY(34,i); 
write('[ ]'); 

END; 

IF bioecke < 4 THEN BEGIN 
k := bioecke; 

END 

ELSE BEGIN 
k := 4; 


END; 


j := l; 

{erster angezeigter Datenblock} 

pos := 0; 

{Position des Auswahlpfeiles} 

ya := 2; 


FOR i := j to k DO BEGIN 

{erste Blöcke ausgeben} 

GotoXY(3,1+i); 



writeln(gewaehlt[i]+block[i]); 

END; 

GotoXY(2,2); 
write('>'); 

REPEAT 

GotoXY(35,2+Trunc(j/((bloecke-3)/3))); 

write('o'); 

wähl := Ord(ReadKey); 
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IF wähl=32 THEN BEGIN 
IF gewaehlt[j+pos] = THEN BEGIN 
gewaehlt[j+pos] := 1 
dec(zahl); 


{Wenn Block noch nicht ausgewählt, dann auswählen} 


ELSE BEGIN 


IF zahl<maxblock THEN BEGIN 
gewaehlt[j+pos] := 
inc(zahl); 

END; 

END; 

GotoXY(3,ya); 

write(gewaehlt[j+pos]+block[j+pos]); 
END; 

IF wähl = 0 THEN BEGIN 
wähl := Ord(readKey); 

GotoXY(35,2+Trunc(j/((bloecke-3)/3))); 
writeC '); 

CASE wähl of 


{Hier fortfahren, wenn Cursor nach oben gedrückt wurde} 

$48 : BEGIN 

IF pos > 0 THEN BEGIN 
GotoXY(2,ya); 
writeC '); 

dec(ya); {kein Scrollen, nur} 

dec(pos); {Auswahlpfeil wandert} 

GotoXY(2,ya); 
write('>'); 

END 

ELSE BEGIN {Scrollen erforderlich} 

IF j>l THEN BEGIN 

scrol 1 (7,2,gewaehl t[j-l]+block[j-l] ,ya); 
dec(j); 

END; 

END; 

END; 

{Hier fortfahren, wenn Cursor nach unten gedrückt wurde} 


$50 : BEGIN 

IF pos < k-1 THEN BEGIN 
GotoXY(2,ya); 
writeC '); 
inc(ya); 
inc(pos); 

GotoXY(2,ya); 
write('>'); 


{Kein Scrollen, nur} 
{Auswahlpfeil wandert} 
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END 

ELSE BEGIN 

IF j+3<bloecke THEN BEGIN 
scroll(6,5,gewaehl t[j+4]+block[j+4],ya); 
inc(j); 

END; 

END; 

END; 

{Hier fortfahren, wenn Bild oben gedrückt wurde} 

$49 : BEGIN 

IF j > 4 THEN BEGIN 
j := J-4; 

FOR i := j to j+3 DO BEGIN {erste Blöcke ausgeben} 
GotoXY(3,2+i-j); 

writeln(gewaehlt[i]+block[i]+' '); 

END; 

GotoXY(2,ya); 
write('>'); 

END; 

END; 

{Hier fortfahren, wenn Bild unten gedrückt wurde} 

$51 : BEGIN 

IF j+3 < bloecke-3 THEN BEGIN 
j := j+4; 

FOR i := j to j+3 DO BEGIN {erste Blöcke ausgeben} 
GotoXY(3,2+i-j); 

writeln(gewaehlt[i]+block[i]+' '); 

END; 

GotoXY(2,ya); 
write(*>'); 

END; 


END; 

END; 

UNTIL wähl = 13; {RETURN schließt Auswahl ab} 

{Hier werden die ausgewählten Blocknummern festgelegt} 

IF zahl>0 THEN BEGIN 
j := 1; 

FOR i:= 1 to bioecke DO BEGIN 
IF gewaehlt[i] = THEN BEGIN 
blocknummer[j] := i; 
daten^.blockU] : = bl ock [i ]; 
inc(j); 

END; 

END; 

END; 
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Standardbild; 
waehlen := zahl; 

END; 

{— Kopf: Miniatur-Menü für Procedur 'Eingehen' aufbauen 
{— Eingabe: Keine 
{— Ausgabe: Keine 

procedure Kopf(flag : boolean); 

CONST s : string[16] = '<N> <V> <+> <-> '; 

BEGIN 

Standardbild; 

GotoXY(2,l); 

CASE flag of 

false : write(s+'<E> <A>'); 
true : write(s+'<E> <R> <A>'); 

END; 

END; 

{— Leerweg: Entfernen von Leerzeichen an Stringanfängen 
{— Eingabe: String mit Leerzeichen 
{— Ausgabe: String ohne Leerzeichen 

function Leerweg(s:string) : string; 

BEGIN 

WHILE Copy(s,l,l) = ' ' DO BEGIN 
s := Copy(s,2,Length(s)-l); 

END; 

Leerweg := s; 

END; 

{— Einladen: Daten eingeben/Daten laden 
{— Eingabe: Flag eingeben=false,laden=true 
{— Ausgabe: Keine 

procedure Einladen(flag : boolean); 

VAR bioecke,anzahl,10 : word; 
s,laenge,ss : string; 
sl : char; 

saetze,erster,letzter : longint; 

block : blockdata; 

blocknummer : blockzahl; 

geladen : satzladezahl; 

i,j,k : longint; 

f : file; 

code : integer; 

dummystring : string[5]; 

dummyzahl : single; 

taste : byte; 

BEGIN 

FOR i:= 1 to maxsaetze DO BEGIN 
geladen[i] := 0; 
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END; 

Standardbild; 

GotoXY(2,2); 

write('Laufwerk und Pfadname :'); 

GotoXY(2,3); 

write('< >'); 

Eingabe(s,3,3,25,l,letztpfad); 

IF copy(s,length(s),1) <> '\' THEN s := s + '\ 1 ; 
letztpfad := s; 

GotoXY(2,5); 

write('Dateiname : < >'); 

Eingabe(ss,15,5,8,l,letztname); 
letztname := ss; 

Assign(f,s+ss+‘.inf 1 ); 
reset(f,l); 

IF IOResult = 0 THEN BEGIN {Zeile 1} 

{Info-Datei auslesen} 

blockread(f,bioecke,2); 
k := IOResult; 

IF k=0 THEN BEGIN 
blockread(f,saetze,4); 
k := IOResult; 

END; 
i := 1; 

WHILE ((k=0) and (i <= bioecke)) DO BEGIN 
blockread(f,block[i],11); 
k := IOResult; 
inc(i); 

END; 

close(f); 

Assign(f,s+ss+'.dat'); 

IF k = 0 THEN BEGIN {Zeile 2} 

loadblock := 0; 

IF flag THEN loadblock := waehlen(bloecke,block, 
blocknummer,maxbloecke); 

Standardbild; 

GotoXY(2,2); 

write('l. Datensatz (1-',saetze,') :'); 
str(saetze,laenge); 

GotoXY(22+1ength(laenge),2); 
write('< >'); 

REPEAT 

Eingabe(s,23+1ength(1aenge),2,9,0,'1'); 
val(s,erster,code); 

UNTIL ((erster >=1) and (erster <=saetze)); 
reset(f,1); 

If IOResult = 0 THEN BEGIN 
loadsatz := 0; 
i := erster; 

Kopf(flag); 

REPEAT 
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{Position für Anfang eines bestimmten Datensatzes der 
Datei berechnen: Pro Datensatz 6 Byte für Untertitel 
und je 4 Byte pro Wert jedes Datenblocks. Also : Pro 
Datensatz existieren (6+4*Blöcke) Byte.} 

seek(f,(6+4*bloecke)*(i-l)); 

blockread(f,dummystring,6); 

10 := IOResult; 

IF 10 = 0 THEN BEGIN 

IF flag THEN BEGIN 

FOR k:= 1 to loadsatz DO BEGIN 
IF geladen[k] = i THEN dummystring := 'Load'; 

END; 

GotoXY(2,2); 

write('Ladbare Datensätze : '); 

GotoXY(25,2); 

write(maxsaetze-loadsatz); 

END; 

GotoXY(2,3); 

write('Datensatz ',i,' : '»dummystring,' '); 

taste := Ord(ReadKey); 

CASE UpCASE(chr(taste)) of 

'+' : IF i<(saetze-9) THEN i:= i+10; 

: IF i>10 THEN i:= i-10; 

'N* : IF i<saetze THEN inc(i); 

•V' : IF i>l THEN dec(i); 

'E 1 : BEGIN 

IF not flag THEN BEGIN 
j := 1; 

WHILE ((j<=bloecke) and (10=0)) DO BEGIN 

{Position für Anfang eines bestimmten Datenblocks eines 
bestimmten Datensatzes der Datei berechnen: Pro Datensatz 
existieren (6+4xBlöcke) Bytes (s.o.). Zu dem Anfang des 
Datensatzes müssen noch für jeden Datenblock 4 Byte 
hinzugezählt werden (Single-Zahl), sowie 6 Byte für den 
Untertitel.} 


seek(f,((6+4*bloecke)x(i-l))+ 

(6+(j-l)*4)); 
blockread(f,dummyzahl,4); 

10 := IOResult; 

IF 10 = 0 THEN BEGIN 
GotoXY(2,4); 

write(' ') 

GotoXY(2,4); 

write(block[j], 1 = ',dummyzahl:12:4); 

GotoXY(2,5); 

write( 1 Neuer Wert :', 

' < >'); 
str(dummyzahl :16:4,ss); 

Eingabe(s,16,5,15,0,Leerweg(ss)); 
val(s,dummyzahl,code); 

IF s<> 11 THEN BEGIN 
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seek(f,((6+4*bloec ke)x(i -1)) + 

(6+(j—1)*4)); 

blockwrite(f,dummyzahl,4); 

10 := IOResult; 

END; 

inc(j); 

END; 

END; {von WHILE} 

IF IO = 0 THEN BEGIN 
GotoXY(2,4); 

write(' '); 

GotoXY(2,5); 

write('Neuer Titel : < > '); 

Eingabe(s,17,5,5,1,dummystring); 

IF s<>'' THEN BEGIN 
seek(f,(6+4*bloecke)x(i—1)); 
blockwrite(f,s,6); 

10 := IOResult; 

END; 

GotoXY(2,4); 

write(' '); 

GotoXY(2,5); 

write(' '); 

END; 

IF I0<>0 THEN BEGIN 
Standardbild; 

GotoXY(2,2); 

write('Fehler bei Zugriff auf Hauptdatei!'); 

taste := Ord('A'); 

readln; 

END; 

END {von Flag} 

ELSE BEGIN 

IF ((loadsatz < maxsaetze) and 
(dummystring <> 'Load')) THEN BEGIN 
inc(loadsatz); 
geladen[loadsatz] := i; 
j := l; 

WHILE ((j<=loadblock) and (10 = 0)) DO BEGIN 
seek(f,((6+4*bloecke)*(i-l)) 
+(6+((blocknummer[j]-l)*4))); 
blockread(f»daten^.zahlen 
[j »loadsatz],4); 

10 := IOResult; 
inc(j); 

END; 

IF 10 = 0 THEN BEGIN 
seek(f,((6+4*bloecke)*(i—1))); 
blockread(f»daten^.satz[loadsatz],6); 

10 := IOResult; 

END; 

IF 10 <>0 THEN BEGIN 
loadblock := 0; 
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GotoXY(2,4); 

write('Fehler bei Zugriff auf Hauptdatei! 1 ); 
GotoXY(2,5); 

write(' Weiter mit <RETURN>.'); 

taste := Ord('A'); 

readln; 

END; 

END; 

END; 

END; 

IF ((f1ag) and (loadsatz < maxsaetze) 
and (dummystring <> 'Load')) THEN BEGIN 
GotoXY(2,5); 

letzter := maxsaetze-loadsatz; 

IF (i + letzter-1) > saetze THEN 
letzter := saetze-i+1; 
write('Anzahl (1— 1 .letzter, 1 ) :'); 

GotoXY(21,5); 
write('< >'); 

REPEAT 

Eingabe(s,22,5,9,l,''); 
val(s,anzahl,code); 

UNTIL ((anzahl >=1) and 

(anzahl <=letzter)); 
k := i; 

WHILE ((k <= i+anzahl-1) and (10=0)) DO BEGIN 
dummystring := 1 '; 

FOR j:= 1 to loadsatz DO BEGIN 
IF geladen[j] = k THEN 
dummystring := 'Load'; 

END; 

IF dummystring <> 'Load' THEN BEGIN 
inc(loadsatz); 

GotoXY(22,5); 
writeC '); 

GotoXY(22,5); 
write(anzahl+i-k); 

GotoXY(25,2); 
writeC '); 

GotoXY(25,2); 

write(maxsaetze-1oadsatz); 
geladen[loadsatz] := k; 
j := l; 

WHILE ((j<= loadblock) and (10 = 0)) DO BEGIN 
seek(f,((6+4*bloecke)*(k—1)) 

+(6+((blocknummer[j]-l)*4))); 
blockread(f,daten A .zahl en 
[j,loadsatz],4); 

10 := IOResult; 
inc(j); 

END; 

IF 10 = 0 THEN BEGIN 
seek(f,((6+4*bloecke)*(k-l))); 
blockread(f.daten^.satz[loadsatz] ,6); 
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IO := IOresult; 

END; 

IF IO <>0 THEN BEGIN 
loadblock := 0; 

GotoXY(2,4); 

write('Fehler beim Lesen aus Hauptdatei!'); 
GotoXY(7,5); 

write('Weiter mit <RETURN>. '); 

taste := Ord('A'); 

readln; 

END; 

END; 
inc(k); 

END; 

GotoXY(2,5); 

write(‘ '); 

END; 

END; 

IF taste=0 THEN taste := Ord(ReadKey); 

END 

ELSE BEGIN 
loadblock := 0; 

fehl er( 1 Fehler bei Zugriff auf Hauptdatei! 1 ); 
taste := Ord('A'); 

END; 

UNTIL (UpCASE(ehr(taste)) = 'A'); 

IF 10 = 0 THEN close(f); 

END 

ELSE BEGIN 

fehl er( 1 Fehler beim Öffnen der Hauptdatei!'); 

END; 

END {von Zeile 2} 

ELSE BEGIN 

fehl er( 1 Fehler beim Lesen der Info-Datei!'); 

END; 

END {von Zeile 1) 

ELSE BEGIN 

fehler('Fehler beim Öffnen der Info-Datei!'); 

END; 

END; 

{— Grafinit: Initialisiert Pixel grafik 
{— Eingabe: Keine 

{— Ausgabe: x-Koordinate Bildschirmmitte 

function Grafinit : word; 

VAR 

GraphDriver, GraphMode : Integer; 

BEGIN 

GraphDriver := 4; 

GraphMode := 1; {640 x 350 Grafikpunkte} 

Grafinit := 120; 

InitGraph(graphdriver,graphmode,graphpath); 


—} 
—} 
—) 
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SetColor(15); 
END; 
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{— BeschrTorte: Beschriftung der Tortendiagramme —} 

{— Eingabe: Ausgabetext, Zaehler, Tortenstückanteil —} 
{— Ausgabe: Keine —} 


procedure beschrtorte(ss : String; zaehler : word; anteil : single); 
VAR xm,ym : integer; 
s : String; 

BEGIN 

ym := 4+16*(zaehler-Trunc(zaehler/4)*4); 
xm := 75*(Trunc(zaehler/4)); 
s := Copy(ss,l,10); 

OutTextXY(xm+12,ym-4,s); 
str(zaehler+l,s); 

OutTextXY(xm,ym,s+'='); 
str(Trunc((anteil/3.6)*10+0.5)/10:4:l,s); 
s := Leerweg(s); 

OutTextXY(xm+12,ym+4,s+' %'); 

END; 


{— Kuchendiagramm: Aufbau der 2-D-Tortengrafik —} 

{— Eingabe: erster Datensatz,letzter Datensatz, —} 

{— erster Datenblock, letzter Datenblock -} 

{— Ausgabe: Keine —} 


procedure Kuchendiagramm(edb,ldb : word; eds,lds : byte); 

VAR xmitte : word; 

anteil,summe,halbierende : single; 

startwinkel,endwinkel,mittelWinkel,xm,ym : Integer; 

s : String; 

zaehler,i,j,k : word; 


CONST 

ymitte : word = 32; 
xradius : word = 35; 
verh : single = 0.70; 
expl : word = 8; 


{Mittelpunkt y-Koordinate) 
{x-Radius EGA-Grafik} 

{Verhältnis y-Radius zu x-Radius) 
{Um soviel Punkte werden die 
Tortenstücke rausgezogen} 


BEGIN 


xmitte := Grafinit+75; 
summe := 0; 

FOR i: = edb to Idb DO BEGIN 
FOR j := eds to lds DO BEGIN 
summe := daten^.zahlenfi,j] + summe; 
END; 

END; 

startwinkel := 0; 

SetFi11 Style(1,15); 
zaehler := 0; 


FOR i:= edb to ldb DO BEGIN 
FOR j := eds to lds DO BEGIN 
anteil := (daten^.zahlen[i,j]/summe)*360; 
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endwinkel := startwinkel + Round(anteil); 

IF endwinkel > 360 THEN endwinkel := 360; 
mittel Winkel := Round((startwinkel+endwinkel)/2); 
xm := Round (xmitte+expl*cos(mittelwinkel*PI/180)); 
ym := Round(ymitte - expl*verh*sin(mittelwinkel*PI/180)); 

sector(xm,ym,Startwinkel,Endwinkel»xradius,Round(verh*xradius)); 

halbierende := ((endwinkel+startwinkel)/2)*PI/180; 

IF eds = lds THEN BEGIN 
s := daten^.blockfi]; 

END 

ELSE BEGIN 

s := daten^.satzU]; 

END; 

beschrtorte(s,zaehler,anteil); 
inc(zaehler); 
startwinkel := endwinkel; 

END; 

startwinkel := endwinkel; 

END; 

END; 


{-Tortendiagramm: Aufbau der 3-D-Tortengrafik —} 

{— Eingabe: erster Datensatz,letzter Datensatz, —} 
{— erster Datenblock, letzter Datenblock —} 
{— Ausgabe: Keine —} 


procedure Tortendiagramm(edb,ldb : word; eds,lds : byte); 

VAR xmitte : word; 

anteil,summe,halbierende : single; 

zaehler,startwinkel,endwinkel,untenwinkel,xm,ym : word; 

i,j,k : word; 

CONST 


ymitte : word = 23; 
xradius : word = 40; 
verh : single = 0.60; 
offset : word = 15; 
BEGIN 


{Mittelpunkt y-Koordinate} 

{x-Radius EGA-Grafik} 

{Verhältnis y-Radius zu x-Radius EGA} 
{Dicke der Torte} 


xmitte := Grafinit+75; 
summe := 0; 

F0R i:= edb to ldb DO BEGIN 
F0R j := eds to lds DO BEGIN 
summe := daten A .zahlen[i,j] + summe; 

END; 

END; 

startwinkel := 0; 
zaehler := 0; 

el1ipse(xmitte,ymitte,0,180,xradius,Round(xradius*verh)); 

el1ipse(xmitte,ymitte+offset,180,360,xradius,Round(xradius*verh)); 

1 ine(xmitte+xradius,ymitte,xmitte+xradius,ymitte+offset); 

1ine(xmitte-xradius,ymitte,xmitte-xradius,ymitte+offset); 

1ine(xmitte,ymitte,xmitte+xradius,ymitte); 

SetFi 11 Style(1,15); 
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zaehler := 0; 
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FOR is- edb to ldb DO BEGIN 
FOR j := eds to Ids DO BEGIN 
anteil := (daten^.zahlenlj ,j]/summe)*360; 
endwinkel := startwinkel + Round(antei1); 

IF ((i <>ldb) or (j<>lds)) THEN BEGIN 
xm xmitte+Round(xradius*cos(endwinkel*PI/180)); 
ym := ymitte-Round(verh*xradius*sin(endwinkel*PI/180)); 

1ine (xmitte,ymitte,xm,ym); 

IF (endwinkel >180) THEN line (xm,ym,xm,ym+offset); 

END; 

halbierende ((endwinkel+startwinkel)/2)*PI/180; 

IF eds = lds THEN BEGIN 
s := daten^.blockti]; 

END 

ELSE BEGIN 

s := daten^.satzjj]; 

END; 

beschrtorte(s,zaehler,anteil); 
inc(zaehler); 

IF Round((i+j—eds—edb+1)/2) = (i+j—eds—edb+1)/2 THEN BEGIN 
FloodFi11(xmitte+Round(xradius*cos(halbierende)/2), 

ymitte-Round(verh*xradius*sin(hal bierende)/2),15); 
IF endwinkel > 180 THEN BEGIN 
SetColor(O); 

IF startwinkel < 180 THEN startwinkel := 180; 
ellipse(xmitte,ymitte,startwinkel,endwinkel, 
xradius,Round(xradius*verh)); 

SetColor(15); 

END; 

END 

ELSE BEGIN 

IF endwinkel > 180 THEN el1ipse(xmitte,ymitte, 

startwinkel,endwinkel,xradius,Round(xradius*verh)); 

END; 

startwinkel := endwinkel; 

END; 

startwinkel := endwinkel; 

END; 

END; 


{— Balkenplot: Zeichnet die 2-D-Balken —} 

{- Eingabe: Zeichenmasstab,Balkenhöhe,Startkoordinaten, -} 

{— Balkenbreite,aktueller und erster Datenblock —} 

{— Ausgabe: Keine —} 


procedure balkenplot(masstab :single; hoehe,xaktuel 1 .yaktuel 1, 
saeule,diff : word); 

VAR k: word; 

BEGIN 

bar(xaktuel 1,yaktuell-hoehe,xaktuell+saeule,yaktuell); 

IF hoehe > 0 THEN BEGIN 
CASE di ff of 
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1 : BEGIN 

SetColor(O); 

FOR k := xaktuell+1 to xaktuel1+saeule-l DO BEGIN 
1ine(k,yaktuell-hoehe+l,k,yaktuel 1-1); 

END; 

SetColor(15); 

END; 

2 : BEGIN 

SetColor(O); 

FOR k := xaktuell+1 to xaktuel1+saeule-l DO BEGIN 
1ine(k,yaktuell-hoehe+l,k,yaktuell-l); 

END; 

SetColor(15); 

IF saeule >=3 THEN BEGIN 
FOR k:= 1 to Trunc(saeule/3) DO BEGIN 
1 ine (xaktuell+k*3,yaktuel1.xaktuell+k*3, 
yaktuell-hoehe+1); 

END; 

END; 

END; 

3 : BEGIN 

SetColor(0); 

FOR k := xaktuell+1 to xaktuel1+saeule-l DO BEGIN 
1ine(k,yaktuell-hoehe+1,k,yaktuel1-1); 

END; 

SetColor(15); 

IF hoehe >= 6 THEN BEGIN 
FOR k:= 0 to Trunc(hoehe/6)-l DO BEGIN 
1ine (xaktuell+1,yaktuell-6*k, 

xaktuel1+saeule-l,yaktuel 1—6*k—6); 

END; 

END; 

END; 

4 : BEGIN 

SetColor(0); 

FOR k := xaktuell+1 to xaktuel1+saeule-l DO BEGIN 
1ine(k,yaktuell-hoehe+l,k,yaktuel1-1); 

END; 

SetColor(15); 

IF hoehe >=4 THEN BEGIN 
FOR k:= 1 to Trunc(hoehe/4) DO BEGIN 
line (xaktuel1+1,yaktuell-4*k,xaktuel 1 + 
saeule-1.yaktuell-4*k); 

END; 

END; 

END; 

5 : BEGIN 

SetColor(O); 

FOR k := xaktuell+1 to xaktuel1+saeule-l DO BEGIN 
line(k,yaktuell-hoehe+l,k,yaktuel1-1); 

END; 

SetColor(15); 

IF hoehe >= 6 THEN BEGIN 
FOR k:= 0 to Trunc(hoehe/6)-l DO BEGIN 
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1 ine (xaktuell+l,yaktuell-6*k-6,xaktuel 1 + 
saeule-1,yaktuell-6*k); 

END; 

END; 

END; 

END; 

END; 

END; 

{— Grafumgebung: Zeichnen und Beschriften Balkengrafik —} 

{- Eingabe: Begrenzungen 1inks,unten,rechts,oben;Maximum —} 

{— Ausgabe: Keine —} 

procedure grafumgebung(links,unten,rechts,oben : word; 
max : single); 

VAR i : byte; 
hoehe : word; 

BEGIN 

Li ne(1inks,oben,1inks,unten); 

Li ne(rechts,oben,rechts,unten); 

FOR i:= 0 to 5 DO BEGIN 
hoehe := Round(i*((unten-oben)/5)); 

Line(links-4,unten-hoehe,rechts,unten-hoehe); 
str(Round(max/5)*i ,s); 

0utTextXY(links-6-length(s)*8,unten-hoehe,s); 

END; 

END; 


{— Beschriftung: Beschriften der Balkengrafiken —} 

{— Eingabe: Begrenzungen links,unten,rechts,erster und —} 
{— letzter Datenblock,erster und letzter Datensatz —} 
{- Ausgabe: Keine -} 


procedure beschriftung(links,unten,rechts,edb,ldb, 
eds,lds : word); 

CONST 

anz : array[1..6] of byte - (10,10,9,6,4,3); 

VAR 

i»xaktuel1.yaktuell : word; 

BEGIN 

xaktuell := links; 
yaktuell := unten+3; 

FOR i:= edb to ldb DO BEGIN 
CASE i-edb of 

0 : bar(xaktuel1»yaktuel1,xaktuel1+4,yaktuel1+8); 

1..5 : BEGIN 

1ine(xaktuel1,yaktuell,xaktuel1+4,yaktuel1); 
line(xaktuell.yaktuell»xaktuell»yaktuel1+8); 

1ine(xaktuel1.yaktuel1+8,xaktuel1+4,yaktuel 1+8); 

1 ine(xaktuel1+4,yaktuel1+8,xaktuel1+4,yaktuel 1); 
CASE i-edb of 

2:1 ine(xaktuel1+2,yaktuell»xaktuel1+2,yaktuel1+8); 
3:1 ine(xaktuel1.yaktuel1+8,xaktuel1+4,yaktuel 1); 
4:1ine(xaktuel1,yaktuel1+4,xaktuel1+4,yaktuel1+4); 
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5:line(xaktuell,yaktuell,xaktuell+4,yaktuel1+8); 
END; 

END; 

END; 

s := Copy(daten A .block[i],l,anz[(ldb-edb+l)]); 
OutTextXY(xaktuell+8,yaktuel1,s); 
xaktuell := xaktuell + 11 + 1ength(s)*6; 

END; 

END; 


{- Balkendiagramm I : Aufbau der Balkengrafik seitlich -} 

{— Eingabe: erster Datensatz,letzter Datensatz,erster —} 
{— Datenblock, letzter Datenblock —} 
{— Ausgabe: Keine —} 


procedure Baikendiagramml(edb,ldb : word; eds,lds : word); 
VAR xmitte : word; 
masstab,max : single; 

hoehe, xstart, xaktuell, yaktuell, Saeule, Satzbreite, 
Blockbreite : word; 
i,j,k : word; 

CONST 


oben : word = 2; 
rechts : word = 239; 
unten : word = 52; 
links : word = 45; 
BEGIN 


{Obere Begrenzung} 

{Rechte Begrenzung EGA—Grafik} 
{Untere Begrenzung} 

{Linke Begrenzung} 


xmitte := Grafinit; 
max := 0; 

FOR i:= edb to ldb DO BEGIN 
FOR j := eds to lds DO BEGIN 

IF daten A .zahlen[i,j] > max THEN max := daten A .zahlen[i,j]; 
END; 

END; 

grafumgebung(links,unten,rechts,oben,max); 
masstab := (unten-oben)/max; 

Satzbreite := Trunc((rechts-1inks)/(lds—eds+1)); 

Blockbreite := Trunc((Satzbreite*0.9)/(ldb-edb+l)); 

Saeule := Round(Blockbreite*0.8); 
xstart := links+4; 
yaktuell := unten; 

FOR i:= eds to lds DO BEGIN 
xaktuell := xstart; 

FOR j := edb to ldb DO BEGIN 
hoehe := Round(daten A .zahlen[j,i]*masstab); 
bal kenplot(masstab,hoehe,xaktuell.yaktuell»saeule,j-edb); 
xaktuell := xaktuell + blockbreite; 

END; 

xstart := xstart + satzbreite; 

END; 

beschriftung(links,unten,rechts,edb,ldb,eds, lds); 

END; 


{- Balkendiagramm II: Aufbau der gestapelten Balkengrafik -} 
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{— Eingabe: erster Datensatz,letzter Datensatz,erster 

{- Datenblock, letzter Datenblock 

{— Ausgabe: Keine 


procedure Baikendiagramm2(edb,ldb : word; eds,lds : word); 

VAR xmitte : word; 
masstab,max,summe : single; 

hoehe, xstart, xaktuell, yaktuell, Saeule, Satzbreite : word; 
i,j,k : word; 

CONST 


oben : word = 2; 
rechts : word = 239; 
unten : word = 52; 
links : word = 45; 


{Obere Begrenzung} 

{Rechte Begrenzung EGA-Grafik} 
{Untere Begrenzung} 

{Linke Begrenzung} 


BEGIN 


xmitte := Grafinit; 
max := 0; 


FOR j := eds to Ids DO BEGIN 
summe := 0; 

FOR i := edb to ldb DO BEGIN 


summe := summe + daten^.zahlen[i,j]; 

END; 

IF summe > max THEN max := summe; 

END; 

masstab := (unten-oben)/max; 

grafUmgebung(1inks,unten,rechts,oben,max); 

Satzbreite := Trunc((rechts-links)/(lds-eds+l)); 

Saeule := Trunc(Satzbreite*0.80); 
xaktuell := links+4; 

FOR i:= eds to lds DO BEGIN 
yaktuell := unten; 

FOR j := edb to ldb DO BEGIN 
hoehe := TruncCdaten^.zahlenfj,i]*masstab); 
bal kenplot(masstab,hoehe,xaktuell»yaktuell,saeule,j-edb); 
yaktuell := yaktuell -hoehe; 

END; 

xaktuell := xaktuell + satzbreite; 

END; 

beschriftung(l inks,unten,rechts,edb,ldb,eds,1ds); 

END; 


{— Saeulendiagramm: Aufbau der 3-D-Saeulengrafik —} 
{— Eingabe: erster Datensatz,letzter Datensatz,erster —} 
{— Datenblock, letzter Datenblock —} 
{- Ausgabe: Keine -} 


procedure Saeulendiagramm(edb,ldb : word; eds,lds : byte); 
VAR xmitte,zahl,xoff,unt : word; 
s : string; 
masstab,max : single; 

hoehe, xstart, xaktuell, yaktuell, Saeule, 

Satzbreite : Integer; 
i,j,k : word; 

CONST 
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oben : word = 2; 
rechts : word = 200; 
unten : word = 50; 
hinten : word = 20; 
di ff : word = 10; 
verh : single = 0.7; 


{Obere Begrenzung} 

{Rechte Begrenzung EGA—Grafik} 
{Untere Begrenzung} 

{Hintere Begrenzung} 

{y-Offset für Datenblock} 

{Verhältnis Tiefe Säulen - y-Offset} 


BEGIN 

xmitte := Grafinit; 
max := 0; 

FOR i:= edb to Idb DO BEGIN 
FOR j := eds to lds DO BEGIN 

IF daten^.zahlenfi,j] > max THEN max := daten A .zahlen[i,j]; 
END; 

END; 

masstab := (unten-oben)/max; 

Li ne(hinten,unten,rechts,unten); 

Li ne(hinten,oben,rechts,oben); 

Li ne(hinten,unten,hinten,oben); 

Li ne(rechts,unten,rechts,oben); 

Li ne(hinten,oben,hinten-diff,oben+diff); 

Li ne(hinten-diff,oben+diff,hinten-diff, 
unten+diff); 

Li ne(hinten-diff,unten+diff»hinten,unten); 

Li ne(hinten-diff,unten+diff,rechts-diff, 
unten+diff); 

Line(rechts-diff,unten+diff,rechts,unten); 

FOR i:= 0 to 5 DO BEGIN 
hoehe := Trunc(i*((unten-oben)/5)); 
Line(rechts+4,unten-hoehe,hinten,unten-hoehe); 

Line(hinten,unten-hoehe,hinten-diff, 
unten+diff-hoehe); 
str(Round(max/5)*i,s); 

IF i<> 0 THEN 0utTextXY(rechts+6,unten-hoehe,s); 

END; 


IF eds = lds THEN BEGIN 
unt := (ldb-edb+1); 

END 

ELSE BEGIN 
unt := (lds-eds+1); 

END; 

Satzbreite := Trunc((rechts-hinten-10)/unt); 
Saeule := Trunc(Satzbreite*0.7); 
xstart := hinten+10; 
xoff := Trunc(Verh*diff); 

xaktuell := xstart-diff; 
unt := unten+diff; 

FOR i := edb to ldb DO BEGIN 
FOR j := eds to lds DO BEGIN 
hoehe := Truncjdaten^.zahlenti,j]*masstab); 
bar(xaktuel1,unt-hoehe,xaktuell+saeule,unt); 
SetColor(O); 
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FOR k := 1 to xoff-1 DO BEGIN 
1 ine (xaktuell+saeule+k,unt-k,xaktuel 1+saeule+k, 
unt-hoehe-k); 

END; 

FOR k := 1 to saeule DO BEGIN 
1ine (xaktuell+k,unt-hoehe,xaktuel1+k+xoff, 
unt-hoehe-xoff); 

END; 

SetColor(15); 

1 ine(xaktuel l+saeule,unt,xaktuel1+saeule+xoff,unt-xoff); 

1ine(xaktuel1+saeule,unt-hoehe,xaktuel1+saeule+xoff, 
unt-hoehe-xoff); 

1 ine(xaktuel1,unt-hoehe,xaktuel1+xoff,unt-hoehe-xoff); 

1 i ne(xaktuel 1+saeule+xoff,unt-xoff,xaktuel 1+saeule+xoff, 
unt-hoehe-xoff); 

1 i ne(xaktuel 1+xoff,unt-hoehe-xoff,xaktuel 1 +saeul e+xoff, 
unt-hoehe-xoff); 

xaktuel1 := xaktuel1 + satzbreite; 

END; 

END; 

xaktuel1 := rechts+4; 
yaktuell := unten+5; 

IF eds = lds THEN BEGIN 
s := daten^.block[eds]; 

END 

ELSE BEGIN 

s := daten^.satzCedb]; 

END; 

OutTextXY(xaktuel1.yaktuell,Copy(s,l,5)); 

END; 

{— Mini: Berechnet Minimum zweier Zahlen —} 

{- Eingabe: Zu vergleichende Zahlen -} 

{— Ausgabe: Minimum dieser Zahlen —} 

function mini(erste,zweite : word) : word; 

BEGIN 

IF erste <= zweite THEN BEGIN 
mini := erste; 

END 

ELSE BEGIN 
mini := zweite; 

END; 

END; 


{— Auswahl blsa: Auswahl der darzustellenden —} 

{— Datenblöcke/Sätze -} 

{— Eingabe: Maximal zulässige Anzahl Datenblöcke/sätze, —} 
{— Typ (Blöcke/Sätze) mit entsp. Textausgaben —} 

{- Ausgabe: Setzt globale Variablen eblo.anzbl/esa.anzsa -} 


procedure auswahlblsa(max : byte; art.leer : String; 

loadart : word; VAR erster,anzahl : word); 


195 



Kapitel 2_ 

VAR code : integer; 
sl : string; 

BEGIN 

Standardbild; 

GotoXY(2,2); 

write('Erster Daten',art, 1 (l-‘,loadart, 1 ) : <'.leer,’>'); 
str(loadart,sl); 

REPEAT 

Eingabe(s,23+length(art)+length(sl),2,length(leer),1, 1 1'); 
val(s,erster,code); 

UNTIL ((erster >= 1) and (erster <= loadart)); 

IF max > 1 THEN BEGIN 
IF erster < loadart THEN BEGIN 
GotoXY(2,4); 
str(erster,sl); 

str(Mi ni(erster+max-1,loadart),s); 
sl := sl + + s; 

writeCLetzter Daten',art, 1 (',sl,') : <',1eer,'>*); 

REPEAT 

Eingabe(s,22+length(art)+length(sl),4,length(leer),1,''); 
val(s,anzahl,code); 

UNTIL ((anzahl >=erster) and 

(anzahl <=Mini(erster+max-1,loadart))); 

END 

ELSE BEGIN 
anzahl := loadart; 

END; 

END 

ELSE BEGIN 
anzahl := erster; 

END; 

anzahl := anzahl - erster+1; 

END; 

{— Auswahl block: Auswahl der darzustellenden Datenblöcke —} 

{— Eingabe: Maximal zulässige Anzahl Datenblöcke —} 

{— Ausgabe: Setzt globale Variablen eblo,anzbl —} 

procedure auswahlblock(max : byte); 

BEGIN 

auswahlblsa(max,'block',' ',loadblock,eblo,anzbl); 

END; 

{— Auswahlsatz: Auswahl der darzustellenden Datensätze —} 

{— Eingabe: Maximal zulässige Anzahl Datensätze —} 

{— Ausgabe: Setzt globale Variablen esa,anzsa —} 

procedure auswahlsatz(max : byte); 

BEGIN 

auswahlblsa(max,'satz',' ',loadsatz,esa,anzsa); 

END; 

{— ausdruck: Hardcopy der Grafik auf Matrixdrucker —} 

{— Eingabe: Keine —} 
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—} 


procedure ausdruck; 

CONST 

ret : char = chr(13); 

druckinit = #$0D#$1B#$6C#$08#$1B#$41#$07; 

neuezeile = #$0D#$0A; 

grafikzeile = #$1B#$4C#$80#$00; 

VAR 

f : file of char; 

grafikbyte : array[0..63] of byte; 
i,j : integer; 

BEGIN 

Assign(f,'prn 1 ); 

Rewrite(f); 
write(f,ret); 

IF IOResult = 0 THEN BEGIN 
close(f); 

write(lst,druckinit); 

FOR i:= 0 to 29 DO BEGIN 
write(lst,grafikzeile); 

FOR j:= 0 to 63 DO BEGIN 
grafikbyte[j] := Mem[$B000:1890—j*30+i]; 

END; 

FOR j:= 0 to 63 DO BEGIN 
write(1 st,ehr(grafikbyte[j])); 
wri te(1 st,chr(grafikbyte[j])); 

END; 

write(l st.neuezeile); 

END; 

wri te(l st,neuezeile); 

END; 

END; 

) 
} 
) 


{- 

(- PROGRAMMSTART 

{- 


BEGIN 

New(daten); 
letztpfad := 11 ; 
letztname := 11 ; 

loadsatz := 0; {Anzahl geladene Datensätze} 

loadblock := 0; {Anzahl geladene Datenblöcke} 

druck 1; {Keine Hardcopy nach Bildaufbau} 

{- Hauptmenü aufbauen -} 

Textmode(portfolio); 

Standardbild; 

REPEAT 

GotoXY(2,2); 

write('ATARI-Portfolio-Version 1.1'); 

GotoXY(2,3); 


197 









Kapitel 2_ 

write('Juli 1990 von Frank Ri emenschnei der'); 

GotoXY(2,4); 

write('(C) 1990 Markt & Technik Verlag AG'); 

GotoXY(2,6); 

write('Hauptmenü mit <F1> Ausdruck : 1 ,hardcopy[druck]); 

REPEAT 

input := ReadKey; 

IF input - chr(0) THEN input := ReadKey; 

UNTIL Input = ehr(59); 

hpunkt := portmenueC Hauptmenü ',12,2,4,16,hauptmenue); 

CASE hpunkt of 

1 : BEGIN 

punkt := portmenueC Datenmenü ',10,2,3,20,datenmenue); 

CASE punkt of 

1 : einrichten; 

3 : einladen(false); 

2 : einladen(true); 

END; 

IF punkt <>0 THEN Standardbild; 

END; 

2 : BEGIN 

IF ((loadblock >0) and (loadsatz > 0)) THEN BEGIN 
punkt := portmenueC Grafikmenü 1 ,10,l,5,19,grafikmenue); 
CASE punkt of 

1 : BEGIN 

auswahlblock(ö); 
auswahlsatz(Trunc(20/anzbl)); 
balkendiagramml(eblo,eblo+anzbl-1, 
esa,esa+anzsa-l); 

END; 

3 : BEGIN 

auswahlblock(20); 

IF anzbl > 1 THEN BEGIN 
auswahlsatz(l); 

END 

ELSE BEGIN 
auswahlsatz(20); 

END; 

saeulendiagramm(eblo,eblo+anzbl-1, 
esa,esa+anzsa-l); 

END; 

2 : BEGIN 

auswahlblock(6); 
auswahlsatz(20); 

balkendiagramm2(eblo,eblo+anzbl-1, 
esa,esa+anzsa-l); 

END; 

4 : BEGIN 

auswahlblock(8); 

IF anzbl > 1 THEN BEGIN 
auswahlsatz(l); 

END 

ELSE BEGIN 

auswahlsatz(8); 
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END; 

kuchendiagramm(eblo,eblo+anzbl-l, 
esa,esa+anzsa-l); 

END; 

5 : BE6IN 

auswahlblock(8); 

IF anzbl > 1 THEN BEGIN 
auswahlsatz(l); 

END 

ELSE BEGIN 
auswahlsatz(8); 

END; 

tortendiagramm(eblo,eblo+anzbl-l, 
esa,esa+anzsa-l); 

END; 

END; 

IF ((punkt >0) and (punkt<6)) THEN BEGIN 
IF druck = 0 THEN ausdruck; 

REPEAT; 

UNTIL KeyPressed; 
s[1] := ReadKey; 

CloseGraph; 

Standardbild; 

END; 

END; 

END; 

3 : druck := 1-druck; 

END; 

UNTIL hpunkt = 4; 

ClrScr; 

Dispose(daten); 

END. 


2.7 Ein Backup-Programm für RAM-Karten 

Als besonders bitter empfinde ich das Fehlen des DOS-Befehls DISKCOPY 
für die RAM-Karten. Wenn ich mir eine Sicherheitskopie anlegen möchte, 
muß ich immer mit dem umständlichen und langsamen COPY arbeiten, 
davon abgesehen, daß eventuell versteckte Daten gar nicht erst mitkopiert 
werden. Versteckte Daten? 

Nun, z.B. die Realisation eines Kopierschutzes auf RAM-Karten ist nicht 
möglich. Die einzige Möglichkeit, Daten vor dem Vervielfältigen zu 
schützen, besteht gerade darin, daß durch den COPy-Befehl Daten, die 
sich in Sektoren befinden, die nicht durch eine Datei belegt sind, auch 
nicht mitkopiert werden. Sicherlich kann man sagen, daß es z.Z. noch 
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wenig Software für den Portfolio gibt, schon gar keine kopiergeschützte, 
aber irgendwann kann ja auch einmal ein Softwarehaus auf diese Idee 
kommen. Der zweite Punkt sind die versteckten Daten. Viele Programme 
benötigen Daten, um ständig auf dem aktuellen Stand zu sein. Dafür 
legen Sie entweder eine für jedermann sichtbare Datei an, oder Sie 
verstecken diese Daten, wenn sie z.B. zuviel über die interne Arbeitsweise 
des Programms verraten, in einem vorher allokierten Sektor, der nicht zur 
Datei gehört. Bei einer Kopie mit COPY blieben diese Daten unkopiert, was 
sicherlich nicht in Ihrem Sinn wäre. 

Als weiteres Problem muß man mit COPY den Umweg über die interne 
RAM-Disk gehen. Wenn diese nun zu klein geraten ist, d.h. weniger 
Speicher aufweist als die Dateien der RAM-Karte, muß man in mehreren 
Durchgängen kopieren, was sehr unangenehm sein kann, da der Joker (x) 
nicht mehr universell einsetzbar ist. (Sonst kopiert man ja jedesmal wieder 
alles...) 

Um all diesen Fragen ein Ende zu bereiten, habe ich das Backup- 
Programm RAM-COPY entwickelt, das sämtliche Sektoren einer RAM- 
Karte kopiert, unabhängig davon, ob ein Sektor durch eine Datei belegt ist 
oder nicht. Das Programm kopiert 32- und 64-Kbyte-Disks in einem 
Durchgang, die 128-Kbyte-Disk in zwei Durchgängen. Der Kopiervorgang 
wird dabei ungleich schneller durchgeführt als bei dem Einsatz des COPy- 
Befehls, da direkt auf die einzelnen Sektoren zugegriffen wird. Als zusätz¬ 
lichen Komfort können Sie Start- und Zielspur frei einstellen (Aufbau einer 
RAM-Karte siehe Kapitel 1), so daß auch Ausschnitte der Disk kopiert 
werden können. 

Nach dem Programmstart mit 

BACKUP fReturn] 

erscheint ein Menü mit folgenden Wahlmöglichkeiten: 

0: Startet den Kopiervorgang 

0: Legt fest, ob Zieldisk beim Kopieren formatiert werden soll 
0: Programmende 

0: Verringert Startspur (0 bis 31 einstellbar) 

0: Erhöht Startspur (0 bis 31 einstellbar) 

0: Erniedrigt Endspur (0 bis 31 einstellbar) 

0: Erhöht Endspur (0 bis 31 einstellbar) 

Dabei ist zu beachten, daß die Endspur nicht größer sein darf als die 
Startspur. Wenn der Kopiervorgang gestartet wird, erscheint die Meldung 
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Quellkarte einlegen , die Sie mit | Return | bestätigen müssen. Nun werden die 
Daten eingelesen. Anschließend wird die Meldung Zielkarte einlegen 
ausgegeben, die Sie nach dem Wechsel der Karte ebenfalls mit [ Return 1 
bestätigen müssen. Bei der 128-Kbyte-Karte wiederholt sich diese Proze¬ 
dur noch einmal. Nach Beendigung des Kopiervorgangs sollte dann wieder 
das Hauptmenü erscheinen. Je nach Lage der Dinge kann aber auch eine 
Fehlermeldung erscheinen, wobei insgesamt acht Variationen möglich 
sind: 

»Falsche Funktionsnummer«, »Keine Adreßmarkierung«, »Karte schreib¬ 
geschützt«, »Sektor nicht gefunden«, »DMA - Überlauf«, »Segmentgrenze- 
Überlauf«, »Lesefehler«, »Fehler des Controllers«, »Track nicht gefun¬ 
den«, »Laufwerk reagiert nicht«. 

Die Bedeutung und Behebung der Fehlermeldungen können Sie in jedem 
DOS-Handbuch nachlesen. 

PROGRAM Backup; 

{written by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 

USES D0S,P0RTCRT; 

{$M 2000,65536,65536} 

TYPE 

buf = array[l..65535] of byte; {Puffer für Magnetkarten-Daten} 

VAR 

groesse,Segment,i : word; 
puffer : ^buf; 
s : char; 

erster,letzter,Status,starttrack,endtrack,ascii : byte; 
form : String[4]; 

{— Bearbtrack: Liest oder schreibt Sektor der Magnetkarte -} 

{— Eingabe: Modus (2=lesen, 3=schreiben), Track, Sektor -} 

{— Ausgabe: Error-Code (0=Fehlerfrei) -} 

FUNCTION bearbtrack(modus,track,sektor:byte) : byte; 

VAR cylinder,Seite : byte; 
reg : registers; 

Position : word; 

BEGIN 

Seite := 0; 

Seite := Trunc(track/16); {Karten'Seite 1 (0 oder 1)} 

cylinder := track - 16*seite; {Karten'Zylinder' (0 bis 15)} 

reg.ah := modus; 
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reg.dl := 0; 
reg.dh := Seite; 
reg.ch := cylinder; 
reg.cl := Sektor; 
reg.al := 1; 
reg.es := Segment; 

Position := (track-erster)*groesse*8+(sektor-l)*groesse; 

reg.bx := Position; {Pufferpositon des Sektors berechnen} 

Intr($13,reg); 

bearbtrack := reg.ah; {Error-Code zurückgeben} 

END; 

{— Maketrack: Liest/Beschreibt/Verifiziert einen Track -} 

{— Eingabe: Tracknummer, Modus (2=L,3=S,4=V) -■} 

{— Ausgabe: Error-Code (0=Fehlerfrei) -} 

FUNCTION maketrack(track,modus : byte) : byte; 

VAR Status, i : byte; 

BEGIN 
i := 1; 

Status := 0; 

WHILE ((i<= 8) and (status=0)) do BEGIN 
Status := bearbtrack(modus,track,i); 
inc(i); 

END; 

maketrack := Status; 

END; 

{— Formattrack: Formatiert einen Track 
{— Eingabe: Tracknummer 
{— Ausgabe: Error-Code (0=Fehlerfrei) 

FUNCTION Formattrack(track : byte) : byte; 

VAR modus : byte; 

BEGIN 

modus := 5; 

IF track = 0 THEN modus := $83; 

Formattrack := bearbtrack(modus,track,1); 

END; 

{— Leseein: Liest einen Bereich der Magnetkarte -} 

{— Eingabe: Erster Track, letzter Track -} 

{— Ausgabe: Error-Code (0=Fehlerfrei) -} 

FUNCTION leseein(erster,letzter : byte) : byte; 

VAR i,Status : byte; 

BEGIN 

Status := 0; 
i := erster; 

WHILE ((status = 0) and (i<=1etzter)) do BEGIN 
Status := maketrack(i ,2); 
inc(i); 

END; 

leseein := Status; 
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{— Schreibeauf: Beschreibt einen Bereich der Magnetkarte -} 

{— Eingabe: Erster Track, letzter Track -} 

{— Ausgabe: Error-Code (0=Fehlerfrei) -} 

FUNCTION schreibeauf(erster,letzter : byte) : byte; 

VAR i,Status : byte; 
reg : registers; 

BEGIN 

Status := 0; 

IF (form = 1 Ja') THEN BEGIN 
i := erster; 

WHILE ((status = 0) and (i<=1etzter)) do BEGIN 
Status := Formattrack(i); 
inc(i); 

END; 

END; 

i := erster; 

WHILE ((status = 0) and (i<=letzter)) do BEGIN 
Status := maketrack(i,3); 
inc(i); 

END; 

WHILE ((status = 0) and (i<=letzter)) do BEGIN 
status := maketrack(i,4); 
inc(i); 

END; 

schreibeauf := status; 

END; 

{- Start Hauptprogramm-) 

BEGIN 

New(puffer); 
groesse := 128; 
endtrack := 31; 
starttrack := 0; 
form := 'Nein'; 

Segment := Memw[seg(puffer):ofs(puffer)+2]; 

ClrScr; 

GotoXY(0,0); 

writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'); 
writeln('x CCM - COPY V 1.0 x'); 

writeln('x (C) 1990 Markt & Technik Verlag AG x'); 
writeln('x written by Frank Riemenschneider x'); 
writeln('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'); 
writeln('x Starttrack : < > Endtrack : < > x'); 
writeln; 

write('xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'); 

REPEAT 

GotoXY(0,6); 

write('x <C>opy <F>ormat Ziel: <E>nde x'); 

GotoXY(16,5); 
write(' '); 
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GotoXY(16,5); 
write(starttrack); 

GotoXY(33,5); 
write(' '); 

GotoXY(33,5); 
write(endtrack); 

GotoXY(24,6); 
write(form); 

REPEAT 

UNTIL Keypressed; 
s := UpCASE(readKey); 
ascii := Ord(s); 

CASE ascii of 
0 : BEGIN 

s := ReadKey; 

CASE s of 

chr(80) : IF starttrack > 0 THEN dec(starttrack); 

chr(72) : IF ((starttrack < 31) and (starttrack < endtrack)) THEN 

inc(starttrack); 

ehr(75) : IF ((endtrack > 0) and (endtrack > starttrack)) THEN dec(endtrack); 
ehr(77) : IF endtrack < 31 THEN inc(endtrack); 

END; 

END; 

67 : BEGIN 

GotoXY(2,6); 

writeCBitte QUELL- Karte einlegen '); 
s := ReadKey; 

erster := 0; {Boot-Sektor lesen} 

letzter := 0; 

Status := leseein(erster,letzter); 

IF Status = 0 THEN BEGIN 

groesse := Memw[Segment:11]; {Kartengröße holen} 
erster := starttrack; 
letzter := endtrack; 

REPEAT 

IF ((groesse = 512) and (letzter > erster+15)) THEN 
letzter := erster + 15; 

IF erster > starttrack THEN BEGIN 
GotoXY(2,6); 

write(' Bitte QUELL- Karte ei nl egen '); 


s := ReadKey; 

END; 

GotoXY(2,6); 

write(‘Lese Daten ein . '); 

Status := leseein(erster,letzter); 

IF Status = 0 THEN BEGIN 
GotoXY(2,6); 

write('Bitte ZIEL- Karte einlegen '); 
s ;= ReadKey; 

GotoXY(2,6); 

write(‘Schreibe Daten . '); 


Status := schreibeauf(erster,letzter); 
END; 

erster := letzter+1; 
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letzter := endtrack; 

UNTIL ((status <>0) or (erster > endtrack)); 
END; 

GotoXY(2,6); 

IF Status = 0 THEN BEGIN 
write( 1 Kopiervorgang abgeschlossen! '); 

END 

ELSE BEGIN 
write('Fehler : '); 

CASE Status of 

$01 : write('Falsche Funktionsnummer 1 ); 
$02 : write('Keine Adreßmarkierung '); 
$03 : write('Karte schreibgeschützt '); 
$04 : write('Sektor nicht gefunden '); 
$08 : write('DMA - Überlauf '); 

$09 : write('Segmentgrenze-Überl auf '); 
$10 : write( 1 Lesefehler '); 

$20 : write( 1 Fehler des Controllers '); 
$40 : write('Track nicht gefunden '); 
$80 : write('Laufwerk reagiert nicht'); 
END; 

END; 

s := ReadKey; 

END; 

70 : BEGIN 

IF form = 'Nein' THEN BEGIN 
form := ' Ja'; 

END 

ELSE BEGIN 

form := 'Nein'; 

END; 

END; 

END; 

UNTIL ascii = 69; 

ClrScr; 

Dispose(puffer); 

END. 


2.8 TSR-Programmierung auf dem Portfolio 

Eine der wohl faszinierendsten Programmiermethoden eines PC stellt die 
sogenannte TSR-Programmierung dar. TSR steht für Terminate and Stay 
Resident d.h., die entsprechenden Programme verbleiben nach ihrer 
Beendigung im Speicher und arbeiten dort entweder im Hintergrund 
weiter oder werden per Tastendruck aktiviert (Hot-Key). Der bekannteste 
Vertreter dieser Gattung von Programmen ist wohl das Programm 
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SIDEKICK. Nun, wenn Sie denken, irgendein auf dem PC entwickeltes 
TSR-Programm liefe auf dem Portfolio, so muß ich Ihnen leider sagen, daß 
dies ein gewaltiger Irrtum ist, zumindest, wenn das Programm über Hot- 
Key aktiviert werden soll. Warum dies so ist, werde ich Ihnen in Abschnitt 
2.8.3 verraten, zuerst aber möchte ich Ihnen an Hand eines einfachen 
Beispiels die Grundlagen der TSR-Programmierung erläutern. 


2.8.1 Der DOS-EXEC-Loader 

Bevor wir in die Beispielprogramme einsteigen, möchte ich ein paar Worte 
über den Startvorgang eines DOS-Programms verlieren. Sämtliche DOS- 
Programme werden mit Hilfe der EXEC-Funktion geladen und gestartet. 
Sie wird nicht nur vom Kommandoprozessor benutzt, um externe Befehle 
oder Programme aufzurufen, sondern kann auch vom Anwender innerhalb 
eines Programms aufgerufen werden. Zunächst wird über andere DOS- 
Funktionen Speicherplatz im RAM reserviert, in den das Programm 
eingeladen werden kann. Am Anfang dieses Speichers legt DOS eine 
Struktur mit dem Namen PSP (Program Segment Prefix) an, an deren Ende 
dann das Programm geladen wird. Nach der Initialisierung des Stack und 
der Segmentregister wird das Programm schließlich zur Ausführung 
gebracht. Nach Ende der Programmausführung wird der durch den PSP 
und den Programmcode belegte Speicher normalerweise wieder freige¬ 
geben, wenn hierzu die DOS-Funktion $4C benutzt wird. Wenn man 
hingegen die Funktion $31 verwendet, wird das Programm zwar ebenfalls 
beeendet, der Speicher bleibt jedoch nach wie vor reserviert, so daß er 
durch kein anderes Programm belegt werden kann. In diesem Fall spricht 
man von einem TSR-Programm. 

Eine wichtige Rolle spielt das PSP, so daß wir uns noch etwas ausführ¬ 
licher mit ihm beschäftigen müssen. Die Struktur ist 256 Byte lang (16 
Paragraphen) und enthält folgende Einträge: 


Aufbau der Program-Segment-Prefix-Struktur 


Adresse 

Inhalt 

Größe 

$00 

Befehl Int $20 

2 Byte 

$02 

Segmentadresse Speicherende 

2 Byte 

$04 

Nicht belegt 

1 Byte 

$05 

FAR-CALL-Befehl zum Int $21 

5 Byte 
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Adresse 

Inhalt 

Größe 

$0A 

Kopie des Interrupt-Vektors $22 

4 Byte 

$0E 

Kopie des Interrupt-Vektors $23 

4 Byte 

$12 

Kopie des Interrupt-Vektors $24 

4 Byte 

$16 

Nicht belegt 

22 Byte 

$2C 

Segmentodresse Environment-Block 

2 Byte 

$2E 

Nicht belegt 

46 Byte 

$5C 

File-Control-Block 1 

16 Byte 

$6C 

File-Control-Block 2 

16 Byte 

$80 

Anzahl Zeichen in Kommandozeile 

1 Byte 

$81 

Kommandozeile 

127 Byte 


Das PSP entstammt den ersten DOS-Versionen, so daß viele Einträge 
heute keinerlei praktische Bedeutung mehr haben. Der erste Eintrag ist 
ein schlichter Int-$20-Befehl, mit dem ein Programm beendet werden 
kann. Heute nimmt man im allgemeinen die DOS-Funktion $4C des Inter¬ 
rupt $21. Wichtig hingegen ist der folgende Eintrag: In ihm ist das 
Segment der Endadresse des für das Programm reservierten Speichers 
abgelegt. Hiermit kann ein Programm z.B. feststellen, ob es noch zusätz¬ 
lichen Speicher z.B. für einen Heap reservieren kann, ohne daß dieser 
über eine DOS-Funktion allokiert werden müßte. Der nächste Eintrag ist 
wieder antiquiert. Es handelt sich um einen Aufruf des Interrupt $21, 
nicht jedoch mit Hilfe des INT-Befehls, sondern über einen direkten 
Einsprung mittels eines FAR-CALL-Befehls. Da hier jedoch nur Funktio¬ 
nen bis einschließlich $24 aufgerufen werden können und zudem die 
Registerbelegung von der des INT-Aufrufs abweicht, macht von dieser 
Möglichkeit niemand mehr Gebrauch. 

Die folgenden drei Einträge enthalten Kopien der Interrupt-Vektoren für 
die Programmbeendigung ($22), für die Reaktion auf die Tastenkombina¬ 
tionen Control-C oder Control-Break ($23) und für die DOS-Fehler- 
Routine ($24). Beim Programmstart werden die aktuellen Werte in das PSP 
kopiert. Wenn diese Vektoren nun von einem Programm verändert werden, 
kann DOS nach dem Programmende an Hand der PSP-Einträge die 
ursprünglichen Einträge wiederherstellen. 

Die Segmentadresse des sogenannten Environment-Blocks ist im folgen¬ 
den Eintrag vermerkt, die Offsetadresse des Environment-Blocks ist relativ 
zu dieser Segmentadresse immer Null. Beim Environment-Block handelt 
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es sich einfach um eine Folge von ASCII-Strings, die jeweils mit einem 
Null-Zeichen abgeschlossen sind. Einer dieser Strings enthält z.B. das 
Verzeichnis, in dem sich die Datei COMMAND.COM befindet, andere die 
Suchpfade, die mit dem PATH-Befehl festgelegt wurden. 

Es folgen nun die beiden sogenannten File-Control-Blöcke (FCB). Hierzu 
muß man wissen, daß DOS zwei Arten von Zugriffen auf Dateien gestattet: 
Zum einen über die sogenannten Handle-Funktionen (Funktionen $3C bis 
$5A des Interrupt $21), die heute fast ausschließlich verwendet werden 
(beim Öffnen der Datei wird ihr eine Nummer, Handle , zugeordnet, über 
die alle weiteren Zugriffe erfolgen), sowie aus Kompatibilitätsgründen zu 
dem Uralt-Betriebssystem CP/M über die FCB (Funktionen $0F bis $29 
des Interrupt $21). Dabei wird in einen der beiden FCBs der Dateiname 
eingetragen, der anhand der Segment- und Offsetadresse den DOS- 
Funktionen übergeben wird. Leider unterstützt diese Methode kein hierar¬ 
chisches Dateisystem, wie man es heute gewohnt ist, so daß die beiden 
FCBs heute praktisch bedeutungslos sind. Die ersten beiden Parameter 
beim Programmaufruf werden automatisch in die beiden FCBs einge¬ 
tragen, was heute aber auch eher uninteressant ist. 

In den 127 Byte großen Puffer für die Kommandozeile hingegen werden 
alle Parameter eingetragen, also auch die, die schon in den beiden FCBs 
gespeichert wurden. Eine Ausnahme bilden die Parameter zur Umleitung 
der Ein-/und/oder Ausgabe, da diese nichts mit dem Programm zu tun 
haben, sondern vom Betriebssystem direkt verarbeitet werden müssen. Da 
man nicht immer davon ausgehen kann, daß der Puffer komplett gefüllt 
ist, wird die Anzahl der Zeichen inklusiv des abschließenden Carriage- 
Retum in dem vorletzten Eintrag des PSP festgehalten. 

Bei Dateizugriffen über FCBs wird der Parameterpuffer als Ein-/ 
Ausgabepuffer für Daten verwendet, den man dann als DTA (Disk Transfer 
Area) bezeichnet. Das Programm kann allerdings die DAT mit Hilfe der 
DOS-Funktion $1A in einen anderen Bereich verschieben. 

Was hat nun das PSP mit TSR-Programmen zu tun? Nun, sehr viel: Wenn 
ein Programm resident im Speicher verbleibt, bleibt dort neben dem 
Programmcode natürlich auch das PSP, der Environment-Block und die 
DTA. Falls man nun das Programm irgendwann wieder aus dem Speicher 
entfernen möchte, genügt es nicht, den von DOS reservierten Speicher 
freizugeben, mit dem dann das PSP und der Programmcode eliminiert 
werden, sondern man muß zusätzlich den Environment-Speicher und im 
Zweifelsfall den DTA-Speicher freigeben, da das Programm diesen ja theo- 
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retisch aus dem PSP in irgendeinen anderen Bereich verschoben haben 
könnte, der für diesen Zweck allokiert wurde. 

Man sollte es sich daher angewöhnen, bei wirklich jedem TSR-Programm 
diese drei Komponenten (PSP + Code, Environment, DTA) explizit freizu¬ 
geben, auch wenn man genau weiß, daß z.B. keine DAT außerhalb des 
PSP vorhanden ist. Es kann nämlich Vorkommen, daß man irgendwann 
das Programm so ändert, daß die DTA doch verschoben wird, ohne daß 
man sich daran erinnert, daß dieser Bereich dann auch freigegeben 
werden muß. Und schon hat man Speichermüll, der wertvolle Bytes stiehlt. 


2.8.2 Verhinderung des Starts der Applikationen 

Als erstes Beispielprogramm habe ich eine kleine Routine entwickelt, die 
den Start der Applikationen mit Hilfe der [Atari | -Taste (das ist die Taste mit 
dem Atari-Logo) verhindert. Ich habe mich nämlich schon oft darüber 
geärgert, daß ein von mir entwickeltes Programm nach dem Aufruf einer 
Applikation abstürzt, da diese zumindest in der DIP-OS-Version 1.052 
noch diverse Fehler enthalten. Nach dem Aufruf des Programms 
NOATAR15.EXE bzw. von NOATARI7.EXE bleibt dieses solange resident im 
Speicher, bis es durch einen erneuten Aufruf wieder entfernt wird. 

Eine wichtige Rolle spielt der Hardware-Tastatur-Interrupt $09. Dessen 
Service-Routine prüft nämlich, ob die [Atari [ -Taste betätigt wurde und ruft 
die ausgewählte Applikation auf. Der Vektor wird einfach auf eine eigene 
Routine umgelegt, die nun ihrerseits prüft, ob die [Atari [ -Taste betätigt 
wurde. Ist dies der Fall, wird der Tastaturcode durch einen anderen, 
»harmlosen« ersetzt, bevor wieder in die Original-Routine gesprungen wird. 
Dies mußte mittels DB-Anweisungen geschehen, da der Turbo Assembler 
keine absoluten Sprünge mit Segment- und Offsetadresse zuläßt. 

Beim ersten Aufruf des Programms wird zunächst ein Flag gesetzt, das 
anzeigt, daß das Programm installiert wurde. Dann werden der alte Inter¬ 
ruptvektor $09 und die Segmentadresse des PSP gerettet. Letztere wird 
benötigt, um bei der Wiederentfemung an die Segmentadresse des 
Environment-Blocks zu kommen. Schließlich wird der neue Vektor gesetzt 
und das Programm durch die Funktion $31 resident beendet. 

Beim zweiten Aufruf wird zunächst das Flag überprüft, ob das Programm 
bereits installiert ist. Dazu bedient man sich eines Tricks: Da das 
Programm beim zweiten Aufruf natürlich auch ein zweitesmal durch den 
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EXEC-Loader in den Speicher geladen wird (es wird natürlich nicht das 
sich bereits im Speicher befindliche residente Programm zum zweitenmal 
gestartet!), kann man nicht einfach auf die Variable ßag zugreifen, da 
diese natürlich auch zweimal vorhanden ist. Wie bekommt man nun das 
Codesegment des ersten, resident installierten Programms heraus? Ganz 
einfach: über den Interrupt-Vektor. Er zeigt natürlich in den Programm¬ 
code des residenten Programms. Jetzt verstehen Sie auch, warum die 
Variablen über das Code- und nicht über das Datensegment adressiert 
wurden! Nur das Codesegment kann man auf so einfache Weise heraus¬ 
finden. 

Ist das Programm schon installiert, werden der Programmspeicher sowie 
der Environment-Speicher des residenten Programms freigegeben. 
Anschließend wird das Programm über die Funktion $4C beendet, 
wodurch auch alle Speicherbereiche des beim zweitenmal aufgerufenen 
Programms freigegeben werden. 

Dieses Verfahren zur Wiederentfemung von TSR-Programmen durch einen 
zweiten Aufruf des gleichen Programms hat sich inzwischen auch im 
professionellen Bereich immer mehr durchgesetzt. 

Da die BlOS-Versionen 1.052 und 1.072 einen unterschiedlichen Inter¬ 
rupt-Handler $09 aufweisen, mußte das Programm in zwei Versionen 
erstellt werden. Hier zunächst das Listing für die Version 1.052: 

; Atari-DEAKTIVATOR BIOS 1.052 
; written by Frank Riemenschneider 
; Postfach 730309 
; 3000 Hannover 71 

; Beim ersten Aufruf wird die Atari-Taste deaktiviert, 

; so daß keine Applikation mehr aufgerufen werden können. 

; Beim zweiten Aufruf wird die Atari-Taste reaktiviert. 

CODE segment 

assume cs:code,ds:code,es:code 


Start: 


mov ax,3509h 

int 21h ;Flag holen 

mov di,offset flag 
mov ax,es:[di] 

cmp ax, 11111 -.gesetzt, reinstallieren 

jz reinstall 

; Programm installieren und resident im Speicher belassen 
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mov csrflag,11111 

;Flag setzen 

mov ax,2001h 

;Funktion 20h 

mov dl,0 

;Kein Zurücksetzen des Interruptvektors 9 

int 61h 


mov ax,cs 


sub ax,10h 

;Segmentadresse PSP merken 

mov cs:pspadr,ax 


mov ax,3509h 

;Interruptvektor 9 holen 

int 21h 


mov cs:int9_ofs,bx 

;und sichern 

mov cs:int9_seg,es 


mov ax,2509h 

;Interruptvektor 9 neu setzen 

push cs 

;Segment = Code-Segment 

pop ds 


mov dx,offset int9 


int 21h 


mov ah,09 

;Meldung ausgeben 

mov dx,offset ml 

;Adresse des Strings 

int 21h 


mov ax,3100h 

;Programm resident beenden 

mov dx,big 

;Anzahl Paragraphen holen 

int 21h 



; Programm reinstallieren und Speicher frei geben 


reinstal1: 


mov ax,2509h 
mov dx,es:int9_ofs 
mov ds,es:int9_seg 
int 21h 

mov es,es:pspadr 

mov ax,es 

mov es,es: [02ch] 

mov ah,49h 

int 21h 

mov es,ax 

mov ah,49h 

int 21h 

push cs 

pop ds 

mov ah,09 

mov dx,offset m2 

int 21h 

mov ah,4ch 

int 21h 


;Interruptvektor auf alte Routine 

;Segmentadresse PSP holen 

;Environment-Speieher frei geben 

;Programm-Speicher frei geben 

;Meldung ausgeben 
;Adresse des Strings 

;Programm beenden 


; Der neue Interrupthandler 9 

int9: push ax 
push bx 
push dx 
push si 
push ds 
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mov 

ax,0040h 



mov 

ds,ax 



mov 

dx,8000h 



in 

al ,dx 



cmp 

al,80h 



jz 1 

wan 



cmp 

al ,0 



jz ’ 

wan 



jnz 

14 


wan: 

mov 

al,155 


14: 

db 

80h,OEh,22h,01h,80h 


mov 

bx,ds:[0151h] 



sub 

bx,ds:[0153h] 



ja 

11 



add 

bx,0Ah 


11: 

cmp 

bx,04 



ja 

12 


13: 

db ; 

234,16h,15h,00, 

,224 

12: 

db ; 

234,2dh,15h,00. 

,224 


;Atari-Taste gedrückt, 
;dann Code umwandeln 


;or BYTE PTR [0122],80h 


;JMP E000:1516 
;JMP E000:152D 


flag 

dw 0 

pspadr 

dw 0 

ml 

db 13,'Atari-Taste wurde 

m2 

db 13,'Atari-Taste wurde 

int9_ofs 

dw 0 

int9_seg 

dw 0 

big 

EQU (($—Start)/16)+llh 


deaktiviert.',13,'$' 
wieder aktiviert.',13,'$' 

;Größe des Programms in Paragraphen 


CODE Ends 
END 


Nun folgt das Programmlisting für die BlOS-Version 1.072: 

; Atari-DEAKTIVATOR BIOS 1.072 
; written by Frank Riemenschneider 
; Postfach 730309 
; 3000 Hannover 71 

; Beim ersten Aufruf wird die Atari-Taste deaktiviert, 

; so daß keine Applikation mehr aufgerufen werden können. 

; Beim zweiten Aufruf wird die Atari-Taste reaktiviert. 

CODE segment 

assume cs:code,ds:code,es:code 


Start: 


mov ax,3509h 
int 21h 

mov di,offset flag 
mov ax,es:[di] 
cmp ax,11111 
jz reinstall 


;Flag holen 


;gesetzt, reinstallieren 




; Programm installieren und resident im Speicher belassen 
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mov cs:flag,11111 
mov ax,2001h 
mov dl,0 
int 61h 
mov ax,cs 
sub ax,10h 
mov cs:pspadr,ax 
mov ax,3509h 
int 21h 

mov cs:int9_ofs,bx 
mov cs:int9_seg,es 
mov ax,2509h 
push cs 
pop ds 

mov dx,offset int9 

int 21h 

mov ah,09 

mov dx,offset ml 

int 21h 

mov ax,3100h 

mov dx,big 

int 21h 


;Flag setzen 
;Funktion 20h 

;Kein Zurücksetzen des Interruptvektors 9 


;Segmentadresse PSP merken 
;Interruptvektor 9 holen 
;und sichern 

;Interruptvektor 9 neu setzen 
;Segment = Code-Segment 


;Meldung ausgeben 
;Adresse des Strings 

;Programm resident beenden 
;Anzahl Paragraphen holen 


; Programm reinstallieren und Speicher frei geben 
reinstall: 


mov ax,2509h 
mov dx,es:int9_ofs 
mov ds,es:int9_seg 
int 21h 

mov es,es:pspadr 

mov ax,es 

mov es,es:[02ch] 

mov ah,49h 

int 21h 

mov es,ax 

mov ah,49h 

int 21h 

push cs 

pop ds 

mov ah,09 

mov dx,offset m2 

int 21h 

mov ah,4ch 

int 21h 


;Interruptvektor auf alte Routine 

;Segmentadresse PSP holen 

;Environment-Speieher frei geben 

;Programm-Speicher frei geben 

;Meldung ausgeben 
;Adresse des Strings 

;Programm beenden 


; Der neue Interrupthandler 9 


int9: push ax 
push bx 
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push dx 


push si 


push ds 


mov 

ax,0040h 


mov 

ds,ax 


mov 

dx,8000h 


in 

al ,dx 


cmp 

al,80h 


jz 

wan 


cmp 

al ,0 


jz 

wan 


jnz 

14 

wan: 

mov 

al,155 

14: 

db 

80h,OEh,25h,01h,80h 


mov 

bx,ds: [0153h] 


sub 

bx,ds: [0155h] 


ja 

11 


add 

bx,0Ah 

11: 

cmp 

bx,04 


ja 

12 

13: 

db 

234,6Ah,15h,00,224 

12: 

db 

234,81h,15h,00,224 


;Atari-Taste gedrückt, 
;dann Code umwände!n 


;or BYTE PTR [0125],80h 


;JMP E000:156A 
;JMP E000:1581 


fl ag 

dw 0 

pspadr 

dw 0 

ml 

db 13,'Atari-Taste wurde 

m2 

db 13,'Atari-Taste wurde 

int9_ofs 

dw 0 

int9_seg 

dw 0 

big 

EQU (($—Start)/16)+llh 


deaktiviert.',13,'$' 
wieder aktiviert. 1 ,13,'$' 

•»Größe des Programms in Paragraphen 


CODE Ends 
END 


2.8.3 Port-Capture: das Foto-Programm für den Portfolio 

Ich möchte nun zu dem sicherlich schwierigsten Teil dieses Buches 
kommen, den »reinrassigen« TSR-Programmen, die per Tastendruck akti¬ 
viert werden können. 

MS-DOS ist zwar das weitverbreitetste Betriebssystem aller Zeiten, fort¬ 
schrittlich kann man es aber nicht gerade nennen. Durch schlecht 
programmierte Systemroutinen hilft bei immer größeren Programmen nur 
eine ständige Weiterentwicklung der Hardware, die z.Z. in dem 80486- 
Prozessor mit 33 MHZ Taktfrequenz gipfelt. Ein Problem kann aber auch 
ein noch so schneller Prozessor nicht beseitigen: MS-DOS ist ein reines 
Single-Task-System, das in keinster Weise auf Multitasking ausgelegt ist, 
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nicht einmal ein Task-Switching (mehrere Programme im Speicher, die 
wechselweise abgearbeitet werden) wird unterstützt, ganz im Gegenteil. 
Wer wie ich schon einmal auf einem Home-Computer des Typs Amiga 
gearbeitet hat, fragt sich, wieso ein ganzer Industriestandard immer noch 
hinter einem solchen Lx)w-Cost-Rechner, wie es der Amiga nun einmal ist, 
hinterherhinkt. 

Nun, diese Frage zu klären, wäre an dieser Stelle sicherlich unsinnig. 
Zumindest kann man sich aber darüber Gedanken machen, ob es nicht 
vielleicht doch möglich ist, einen Hauch von Task-Switching unter MS- 
DOS zu realisieren. Die erste Frage ist die, wie man ein zweites oder 
drittes Programm überhaupt während des Ablaufs eines Programms 
aktivieren könnte. 

Da MS-DOS natürlich vom System keinerlei Unterstützung bietet, muß 
man sich etwas anderes einfallen lassen, nämlich eine Hardware-Lösung, 
da softwaremäßig keinerlei Chance besteht. Bevor man aber nun beginnt, 
eine Platine zu löten, sollte man sich die internen Möglichkeiten des 
Rechners ansehen: Hierbei fällt sofort der Tastatur-Interrupt $09 ins 
Auge. Bei jedem Tastendruck wird das laufende Programm unterbrochen. 
Damit hat man die Möglichkeit, die Kontrolle über das System zu über¬ 
nehmen, ohne daß das ablaufende Programm etwas daran ändern könnte. 
Als »Startschuß« für die Aktivierung eines zweiten Programms könnte man 
so z.B. ungewöhnliche Tastenkombinationen wählen, die im Normalfall 
unsinnig sind (z.B. beide | shift I -Tasten gedrückt). In dem Original-Handler 
des Interrupt $09 wird ein sogenanntes Tastatur-Status-Byte erzeugt, das 
Aufschluß insbesondere über die Tasten | Shift| , [Alt] und | Strg | liefert. 
Dadurch bieten sich gerade diese Tasten zum Aufruf eines TSR- 
Programms an. 

Zu beachten ist in diesem Zusammenhang, daß auf einen Aufruf des 
Original-Handlers auf keinen Fall verzichtet werden kann. Er stellt 
nämlich die Verbindung zur Hardware her, indem er den Tastaturpro¬ 
zessor ausliest, die Codes in ASCII-Zeichen umwandelt und diese in den 
Tastaturpuffer einträgt. Ohne den Original-Handler sind somit keine 
Eingaben über die Tastatur mehr möglich, was natürlich nicht im Sinne 
des Erfinders wäre. Ebenso besteht die Möglichkeit, daß unser TSR- 
Programm nicht das erste seiner Art ist: Würde es nicht den bislang gülti¬ 
gen Interrupt-Handler aufrufen, könnten alle vorher installierten TSR- 
Programme nicht mehr auf ihren Hot-Key reagieren. Man muß sich die 
Reihe der TSR-Programme wie eine Kette vorstellen: Das zuerst installierte 
TSR-Programm ruft den Original-BIOS-Handler auf, bevor die eigene 
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Routine abgearbeitet und auf einen Hot-Key geprüft wird. Das zweite 
Programm ruft zunächst den alten Händler, also den des ersten TSR- 
Programms auf, bevor dessen Rotuine abgearbeitet wird, usw. Aus diesem 
Grund (und einem weiteren, s.u.) dürfen zwei TSR-Programme nicht den 
gleichen Hot-Key benutzen. 

Man muß jetzt noch überlegen, wie die alten Interrupt-Handler aufgerufen 
werden können: Über den INT-Befehl ist dies sicher nicht möglich, da 
dadurch ja immer wieder die gleiche Routine aufgerufen würde, was nach 
einer gewissen Anzahl von Aufrufen zum Stack-Überlauf und damit zum 
Absturz des Rechners führen würde. Man muß deshalb die Adresse des 
alten Händlers in eine Variable retten, damit die Routine über einen FAR- 
CALL-Befehl aufgerufen werden kann. Weil beim INT-Aufruf automatisch 
das Flag-Register auf den Stack gerettet wird, muß man dieses mit Hilfe 
eines PUSHF-Befehls vor dem FAR-CALL simulieren. Würde man dies 
vergessen, würde durch den IRET-Befehl am Ende des Interrupt-Handlers 
ein Flag-Register vom Stack geholt, das sich dort gar nicht befindet. Viel¬ 
mehr würde hierfür ein Teil der Rücksprungadresse genommen, weshalb 
die Rücksprungadresse verfälscht wird und das Programm abstürzt. 

Nachdem der alte Interrupt-Handler abgearbeitet wurde, kann dann an 
Hand des Tastatur-Flag, das man aus der BlOS-Variablenadresse 
$0040:$0017 auslesen kann, feststellen, ob ein Hot-Key gedrückt wurde, 
und das TSR-Programm aktivieren. Dies klingt zwar einfach, ein paar 
Hindernisse gibt es aber schon noch. 

Das größte Problem besteht darin, daß DOS nicht reentrant ist. (Mit dem 
Begriff reentrant beschreibt man die Fähigkeit eines Betriebssystems, 
seine Funktionen von mehreren Programmen gleichzeitig ausführen zu 
lassen.) 

Da das ablaufende Programm zu jeder Zeit per Hot-Key unterbrochen 
werden kann (Hardware-Interrupt!), kann man nie ausschlieJ3en, daß 
gerade eine DOS-Funktion ausgeführt und dann unterbrochen wurde. 
Dies ist nicht schlimm, solange das TSR-Programm nach seiner Beendi¬ 
gung korrekt in die unterbrochene DOS-Funktion zurückkehrt. Die 
Probleme treten erst dann auf, wenn das TSR-Programm seinerseits eine 
DOS-Funktion aufruft, was sowieso schon kaum zu verhindern ist, in 
Hochsprachen durch die Systemroutinen der Compiler jedoch zwangs¬ 
läufig auftritt. 

Um dies zu verstehen, muß man wissen, daJ3 DOS beim Aufruf einer 
Funktion des Interrupt $21 die Register SS (Stacksegment) und SP 
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(Stackpointer) mit der Adresse eines der drei DOS-Stacks lädt. DOS 
benutzt also nicht den Stack des aufrufenden Programms, sondern einen 
eigenen. Auf diesem werden in erster Linie Rücksprungadressen beim 
Aufruf von Unterprogrammen abgelegt, er dient aber auch als Zwischen¬ 
speicher für interne Variablen. Das Problem liegt nun darin, daß man von 
außen nicht festlegen kann, welchen Stack DOS zu benutzen hat. Ruft 
man nun eine weitere DOS-Funktion aus einer unterbrochenen DOS- 
Funktion auf, kann man das Pech haben, daß die Funktion des TSR- 
Programms denselben Stack benutzt wie die unterbrochene Funktion. 
Damit werden natürlich alle Daten der unterbrochenen Funktion auf 
diesem Stack gelöscht. Zwar arbeitet die Funktion des TSR-Programms 
einwandfrei (solange sie nicht durch weitere TSR-Programme unter¬ 
brochen wird), nach der Rückkehr in die unterbrochene Funktion findet 
diese jedoch zerstörte Daten auf dem Stack vor, was meistens einem 
Systemabsturz gleichkommt. 

Man darf also TSR-Aufrufe nur dann zulassen, wenn gerade keine DOS- 
Funktion ausgeführt wird. Zum Glück benutzt DOS ein Flag mit dem 
Namen Indos , das die Verschachtelungstiefe bei DOS-Aufrufen angibt. 
Enthält es den Wert Null, wird gerade keine DOS-Funktion ausgeführt, 
beim Wert 1 ist dies hingegen der Fall. Unter bestimmten Umständen darf 
DOS intern auch weitere DOS-Funktionen aufrufen, so daß Werte größer 
als 1 auch in seltenen Fällen möglich sind. 

Natürlich darf das Indos -Flag vom TSR-Programm nicht mit Hilfe einer 
DOS-Funktion abgefragt werden, man kann den Wert jedoch auch direkt 
aus dem Speicher auslesen. Die Adresse kann man mit Hilfe der DOS- 
Funktion $34 bei der Initialisierung des TSR-Programms ermitteln, die die 
Segment- und Offsetadresse in ES:BX zurückliefert. 

Der neue Händler für den Interrupt $09 muß nun also so ergänzt werden, 
daß er zwar weiterhin zunächst auf einen gedrückten Hot-Key testet, vor 
der tatsächlichen Aktivierung des TSR-Programms aber zunächst auch 
das Indos -Flag überprüft. Damit sind wir beim größten Problem überhaupt 
angekommen, dem Kommandoprozessor. Dieser benutzt nämlich ständig 
selbst DOS-Funktionen, was z.B. mit der Ausgabe des Prompt und dem 
Warten auf eine Tastatureingabe zusammenhängt. Das Indos -Flag hat 
somit permanent den Wert 1, weshalb man ein TSR-Programm nicht vom 
Kommandoprozessor aus aufrufen könnte. Mit dieser Einschränkung 
kann man nicht leben, weshalb auch hier nach einem Ausweg gesucht 
werden muß. 
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Beim PC wurde dies wie folgt realisiert: Um keine Zeit zu verschwenden, 
ruft COMMAND.COM in periodischen Abständen den Interrupt $28 auf, 
der z.B. für die Hintergrundausgabe mittels PRINT-Befehl verantwortlich 
ist. Während der Ausführung dieses Interrupt ist eine Unterbrechung 
zulässig, auch wenn das Jndos-Flag einen Wert von ungleich Null aufweist. 

Das Problem besteht beim Portfolio darin, daß hier vom Kommando¬ 
prozessor der Interrupt $28 nicht aufgerufen wird, so daß diese Methode 
scheitert: Genau deshalb laufen auch keine PC-TSR-Programme auf dem 
Portfolio! Nach langem Suchen bin ich darauf gestoßen, daß beim Portfolio 
dafür eine Unterbrechung während des BlOS-Interrupt $16, Funktion 
$00, zulässig ist, der vom Kommandoprozessor indirekt über DOS auf¬ 
gerufen wird, wenn auf eine Eingabe gewartet wird. Wir müssen also noch 
einen neuen Händler für den BlOS-Interrupt $16 schreiben, der beim 
Aufruf ein Flag setzt, durch das angezeigt wird, daß ein Aufruf des TSR- 
Programms trotz eines Indos -Flag ungleich Null zulässig ist. Ist die BIOS- 
Routine beendet, wird das Flag wieder gelöscht. 

Eine Einschränkung habe ich aus Vorsicht noch gemacht: Ist gerade ein 
BlOS-Interrupt $13 aktiv, durch den der direkte Zugriff auf ein Speicher¬ 
medium vollzogen wird, wird die Aktivierung des TSR-Programms ebenfalls 
verhindert. Warum dies? Nun, beim PC sind Diskettenlaufwerke und Fest¬ 
platten angeschlossen, die durch den Interrupt $13 gesteuert werden. 
Nehmen Sie an, auf der Platte soll ein Sektor beschrieben werden. Die 
Platte dreht sich, der Lesekopf ist auf Schreiben umgeschaltet, d.h., er 
magnetisiert die sich drehende Scheibe. Falls nun eine Unterbrechung 
erfolgt, dreht sich die Platte natürlich weiter und der Lesekopf magneti¬ 
siert, d.h., es wird nicht nur ein Sektor, sondern die ganze Spur mit 
unsinnigen Daten beschrieben. Beim Portfolio existieren keine derartigen 
zeitkritischen Aktionen, da hier ja nur auf RAM-Karten geschrieben wird. 
Tortzdem kann es passieren, daß ein Hersteller eines Tages ein Disketten¬ 
laufwerk als Zubehör anbietet, womit die geschilderten Probleme auch auf 
den Portfolio zukämen. Da ich einen TSR-Handler schreiben wollte, der 
auch in 20 Jahren noch von Ihnen zu verwenden ist, habe ich das PC- 
Prinzip der Vorsicht schon integriert: Durch einen neuen Händler des 
Interrupt $13 wird ein Flag gesetzt, das eine Aktivierung des TSR- 
Programms bei der Ausführung des Interrupt verhindert. 

Schließlich müssen noch rekursive Aufrufe des TSR-Programms aus sich 
selbst verhindert werden, was ebenfalls mit Hilfe eines Flag passieren 
kann. 


218 



.——___Kapitel 2 

Wir haben nun alle Voraussetzungen für die Aktivierung eines TSR- 
Programms besprochen. Was jetzt noch fehlt, ist der sogenannte Kontext¬ 
wechsel zwischen den Programmen. Hiermit hat es folgendes auf sich: 
Damit das unterbrochende Programm nach dem Ende des TSR- 
Programms weiterlaufen kann, als sei nichts geschehen, müssen gewisse 
Informationen gerettet werden. Das sind zunächst alle Prozessorregister 
und der Stack. Daneben müssen aber auch alle betriebssystemabhängigen 
Komponenten wie die Adressen des PSP und der DTA gerettet werden, um 
nach der Rückkehr wieder auf die ursprünglichen Werte gesetzt werden zu 
können. Für die Ermittlung der Adressen und das Neusetzen existieren 
vier DOS-Funktionen. Falls das TSR-Programm einen eigenen Bildschirm 
aufbaut, müssen zusätzlich noch der Video-Modus und das Video-RAM 
gerettet werden. Da dies aber nicht immer der Fall ist (z.B. arbeiten Recht¬ 
schreibhilfen oft völlig im Hintergrund), kann man dies auch dem eigent¬ 
lichen TSR-Programm überlassen. 

Auf der anderen Seite benötigt das TSR-Programm vor seiner Aktivierung 
einen sinnvollen Inhalt der Prozessorregister und des Stack, mit dem es 
Weiterarbeiten kann. Ebenso sind die Adressen des PSP und der DTA 
erforderlich. Diese Dinge müssen also schon bei der Initialisierung des 
TSR-Programms ermittelt und abgespeichert werden, damit die Werte bei 
dem Aufruf des TSR-Programms mittels Hot-Key wieder eingesetzt werden 
können. 

Das folgende Programm stellt ein Capture-Programm für den Portfolio dar, 
also ein Programm, mit dem man den aktuellen Bildschirm abspeichem 
kann. Der TSR-Handler selbst ist zwangsläufig in Assembler geschrieben, 
das TSR-Programm muß jedoch in Pascal programmiert sein. Dem 
Händler wird bei der Installation einfach die Adresse einer Prozedur über¬ 
geben, die dann beim Drücken des Hot-Key aufgerufen wird (Tsrlnit). 
Weiterhin müssen der Speicherbedarf des TSR-Programms in Paragraphen 
(16 Byte) und der Tastaturcode für den gewünschten Hot-Key übergeben 
werden. Hierfür gilt: 

1: rechte | Shift | -Taste 
2: linke [Shift I -Taste 
4: [ strg 1 -Taste 
8: [Alt | -Taste 

Um z.B. eine Aktivierung des TSR-Programms bei einem Druck beider 
IShift I -Tasten zu erreichen, muß der Wert 3 (1+2) übergeben werden. Bei 
der Speicherbestimmung gibt es beim Portfolio ein Problem. Normaler¬ 
weise kann man in Turbo Pascal die Differenz der Variablen FreePtr A 
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(Spitze des Heap) und PreßxSeg (Startadresse des PSP) nehmen. Leider 
zeigt beim Portfolio wegen eines Fehlers in den Speicherverwaltungs¬ 
routinen die Variable FreePtr A immer auf die Spitze des verfügbaren RAM, 
egal wieviel Speicher Sie für den Heap mit der Compileranweisung 
reserviert haben. Da man unmöglich das gesamte RAM für das TSR- 
Programm reservieren kann, muß man auf die Variable HeapPtr A zurück¬ 
greifen, die die Basis des Heaps angibt. Wenn man nun Daten auf dem 
Heap abgespeichert hat, muß man deren Platzbedarf zu der Differenz von 
HeapPtr A und PreßxSeg in Paragraphen hinzufügen, d.h. die Byteanzahl 
vorher durch 16 dividieren. Um ein Entfernen durch erneuten Aufruf des 
Programms zu ermöglichen, wurden die Routinen Testinst und TsrUnlnst 
geschrieben, die testen, ob das Programm bereits resident installiert wurde 
(Ergebnis: TRUE) und es bei Bedarf dann wieder aus dem Speicher ent¬ 
fernen. Diese drei Assemblerroutinen befinden sich im Modul Tsr.obj , das 
durch die Compileranweisung {$L..} eingebunden wird. 

Das Programm ermittelt selbständig, ob zur Zeit des Aufrufs der Text- oder 
Grafikmodus aktiv war. So wird der Textschirm als ASCII-File abgelegt, 
wobei man noch die Wahl zwischen dem 40- und 80-Zeichen-Bildschirm 
hat. Der Grafikbildschirm wird als .PCX-File gespeichert, so daß die Daten 
mit fast allen Grafik- und Textverarbeitungsprogrammen weiterverarbeitet 
bzw. ausgegeben werden können (DeluxePaint II Enhanced, Word 5.0 etc.). 
Da Sie im Grafikmodus nichts sehen können, wird die Arbeit des 
Programms akustisch untermalt. Steht am Ende ein hoher Ton (1200 
Herz), ging bei der Speicherung alles glatt, bei einem Fehler ertönt ein 
tiefer Ton (700 Herz). Da Sie ebenfalls durch den Grafikmodus bedingt 
keine Eingaben bezüglich des Dateinamens machen können, wird hierfür 
der Text Graßk mit einer anschließenden Zahl festgelegt, die bei jeder 
gespeicherten Grafik um eins hochgezählt wird. Die Ausgabe erfolgt auf 
die interne RAM-Disk (C:). Im Textmodus sind Dateiname und Laufwerk 
frei eingebbar. 


PROGRAM PortCapture; 

{written by Frank Riemenscheider 
Postfach 730309 
3000 Hannover 71} 

USES DOS, PORTCRT; 

{$M 6000, 0, 0} 

{$L a:tsr.obj} 

VAR Buffer : array[0..79] of word; {Bildschirmspeicher} 
help : word; 
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{Anzahl gespeicherte Grafiken} 
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PROCEDURE TsrInst(Prozoff : word; Taste : word; Speicher : word) ; external; 
FUNCTION Testinst : boolean ; external ; 

PROCEDURE TsrUnlnst; external; 

{- SaveZeile: sichert die erste Bildschirmzeile -} 

PROCEDURE SaveZeile; 

VAR spalte : byte; { die aktuelle bearbeitete Spalte } 

BEGIN 

FOR spalte := 0 to 79 DO BEGIN 
Buffer[spalte] := Memw[$B000:2*spalte]; 

END; 

END; 

{- Hol Zeile: Restauriert erste Bildschirmzeile -} 

PROCEDURE Hol Zeile; 

VAR spalte : byte; { die aktuelle bearbeitete Spalte } 

reg : registers; 

BEGIN 

FOR spalte := 0 to 79 DO BEGIN 
Memw[$B000:2*spal te] := Buffer[spalte]; 

END; 

reg.ah := $12; {Screen Refresh} 

Intr(97,reg); 

END; 

{- TSR-Prozedur muß NEAR sein -} 

{$ F—} 

PROCEDURE Tsr; 

VAR Spalte,i,j,k, 

Zeile,sploop,zloop : byte; 
name : string; 
groesse : char; 
f : file; 

buf : array[0..82] of byte; 
flag : boolean; 
adresse,result : integer; 
reg : registers; 

CONST 

headerl : array[0..18] of byte = (10,5,1,1,0,0,0,0,239,0,63,0, 

240,0,64,0,0,0,0); 

header2 : array[0..5] of byte = (1,1,30,0,1,0); 
sp : array[0..1] of byte = (39,79); 
ze : array[0..1] of byte = (7,24); 

BEGIN 

reg.ah := $0E; 

reg.al := 0; {Modus holen (Text/Grafik)} 

Intr(97,reg); 

IF (reg.dl and 128) = 0 THEN BEGIN 
SaveZeile; {Textmodus} 
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Zeile := WhereY; 

Spalte := WhereX; 

GotoXY(0,0); 

write('xxxxxxxx Filename : < > xxxxxxxx'); 

GotoXY(21,0); 
readln(name); 
name := copy(name,l,12); 

IF Copy(name,length(name)-3,l) ' THEN BEGIN 
name := copy(name,1,8); 
name := name + '.txt'; 

END; 

GotoXY(0,0); 

write('x Format: <1> 40x8 <2> 80x25 <0> Ende x'); 

Repeat 

Repeat 

Until Keypressed; 
groesse := ReadKey; 

Until ((groesse = *1') or (groesse = '2') or (groesse = '0')); 

Hol Zeile; 

IF groesse <> '0' THEN BEGIN 
flag := false; 

Assign(f,name); 

Rewrite(f,l); 

IF IOresult = 0 THEN BEGIN 
zloop := ze[ord(groesse)-49]; 
sploop := sp[ord(groesse)-49]; 

F0R i:= 0 to zloop DO BEGIN 
F0R j:= 0 to sploop DO BEGIN 
buf[j] := Mem[$B000:i*160+2*j]; 

END; 

buf[sploop+1] := 13; 
buf[sploop+2] := 10; 
blockwrite(f,buf[0],sploop+3,resul t); 

END; 

close(f); 

IF ((IOresult =0) and (result = (sploop+3))) THEN flag := true 
END; 

IF NOT flag THEN BEGIN 
GotoXY(0,0); 

write('xx Fehler beim Speichern der Daten! xx'); 
groesse := ReadKey; 

HolZeile; 

END; 

END; 

GotoXY(Spalte,Zeile); 

END 

ELSE BEGIN (Grafikmodus} 

sound(1200,20); 
str(grazahl,name); 
name := 'Grafik'+name+'.pcx'; 

Assign(f,name); 

Rewrite(f,1); 

IF IOresult = 0 THEN BEGIN 
blockwrite(f,headerl,19,result); 
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FOR i:= 0 to 44 DO BEGIN 
buf[i] := 255; 

END; 

blockwrite(f,buf[0] ,45,resul t); 
blockwrite(f,header2,6,resul t); 
blockwrite(f,buf[0] ,58,resul t); 

FOR i:= 0 to 63 DO BEGIN 
adresse := i*30; 

FOR j:= 0 to 29 DO BEGIN 
buf[j*2] := $C1; 

buf[j*2+1] := Mem[$B000:adresse+j]; 

END; 

blockwrite(f,buf[0] ,60,resul t); 

END; 

close(f); 

IF ((IOresult =0) and (result = 60)) THEN BEGIN 
sound(1200,30); 
inc (grazahl); 

END 

ELSE BEGIN 
sound(700,30); 

END; 

END; 

END; 

END; 

{- HAUPTPROGRAMM } 

BEGIN 

grazahl := 0; 

IF (Testinst) THEN {Programm installiert?} 

BEGIN 

ClrScr; 

writeln('Port-Capture wurde reinstalliert.'); 

TsrUnlnst; {Ja, Programm reinstallieren} 

END 

ELSE {Nein, Programm installieren} 

BEGIN 
CIrScr; 

writeln('xxxxxx PORT - CAPTURE xxxxxx'); 
writeln('x Das Foto-Programm für den Portfolio x'); 
writeln('x (C)opyright 1990 by Markt & Technik x'); 
writeln('x written by Frank Riemenschneider x'); 
writeln('x Port-Capture wurde installiert. x'); 
writeln('x Aufruf mit <LEFTSHIFT>+<RIGHTSHIFT> x'); 
write(’xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx'); 
help := Seg(HeapPtr /v )-PrefixSeg +1; {Benötigter Speicherplatz} 
Tsrlnst(Ofs(Tsr),1+2,heip); 

END; 

END. 
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Hier nun der TSR-Handler, den Sie in alle von Ihnen entwickelten TSR- 
Programme für den Portfolio einbauen können: 

; TSR-HANDLER 
; written by 
; Frank Riemenschneider 
; Postfach 730309 
; 3000 Hannover 71 

; Beim ersten Aufruf wird der Händler installiert. Es stehen die Routinen 
; TSRINST (Pointer auf TSR-Pascal Prozedur,Hotkeys), 

; tpesTINST 
; sowie TSRUNINST 

; für einen Aufruf von Turbo Pascal zur Verfügung. 

; Beim zweiten Aufruf wird der Händler wieder deaktiviert. 

CODE segment byte public 


assume cs:C0DE, ds:C0DE, es:C0DE 


public tsrinst 

public testinst 

public tsruninst 

Aktivierung der neuen Interrupt-Routinen 
tsrinst proc near 


push bp 
mov bp,sp 
push es 


BP auf dem Stack sichern 
SP nach BP übertragen 
ES auf dem Stack sichern 


; Die Pascal-Programm-Segmentregister retten 


mov cs:tpss,ss 
mov cs:tpsp,sp 
mov cs:tpes,es 
mov cs:tpds,ds 


mov bx,[bp+8] ;Pointer auf TSR-Prozedur holen 

mov cs:tsradr,bx ;und sichern 

mov bx,[bp+6] ;Maske für Hotkey holen und merken 

mov cs:hotkey,bx ;und sichern 


;PSP des Pascal-Programms sichern 


mov ax,cs 

sub ax,10h 

mov cs:tppspseg,ax 


;256 Byte abziehen (10h Paragraphen) 
;Segmentadresse merken 


Adresse des INDOS-Flags sichern 


mov ah,34h 


Adresse INDOS-Flag holen 
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int 21h 

mov cs:indosofs,bx ;und merken 
mov cs:indosseg,es 

;DTA-Adresse des Pascal-Programms merken 


mov 

ah,2fh 

;DTA-Adresse holen 

int 

21h 


mov 

cs:tpdtaofs,bx 


mov 

cs:tpdtaseg,es 

;und merken 

Installationsflag (TSR bereits 

installiert) setzen 

mov 

ax,11111 


mov 

cs:aktflag,ax 


Adressen der umzuleitenden Interrupt-Handler merken 

mov 

ax,3509h 

;Interrupt-Vektor 9h sichern 

int 

21h 


mov 

cs:int9ofs,bx 


mov 

cs:int9seg,es 


mov 

ax,3513h 

;Interrupt-Vektor 13h sichern 

int 

21h 


mov 

cs:intl3ofs,bx 


mov 

cs:intl3seg,es 


mov 

ax,3516h 

;Interrupt-Vektor 16h sichern 

int 

21h 


mov 

cs:intl6ofs,bx 


mov 

cs:intl6seg,es 


iZurücksetzen des Interrupt-Vektors 9h verhindern 

mov 

ah,20h 


mov 

al ,1 


mov 

dl ,0 


int 

61h 


;Installation der Interrupt-Vektoren 

push ds 

;Datensegment merken 

mov 

ax,cs 

;Segment ist immer Codesegment 

mov 

ds,ax 


mov 

ax,2509h 

;Interrupt-Vektor 9h setzen 

mov 

dx,offset int09 


int 

21h 


mov 

ax,2513h 

;Interrupt-Vektor 13h setzen 

mov 

dx,offset int13 


int 

21h 
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mov ax,2516h 
mov dx,offset int16 
int 21h 

pop ds 

•»Programm resident beenden 

mov ax,3100h 
mov dx,[bp+4] 
int 21h 

tsrinst endp 


;Interrupt-Vektor 16h setzen 


;DS wieder vom Stack holen 


;Anzahl der reservierten Paragraphen 
;Programm beenden 


; testlNST: stellt fest, ob das Programm bereits installiert ist 
; Rückgabe-Wert : 1, wenn das Programm installiert ist, sonst 0 


testinst proc near 


mov ax,3509h ;Interrupt-Vektor 9h holen 

int 21h ;DOS-Interrupt holt Segadresse nach ES 

mov di,offset aktflag ;Installationsflag holen 

mov ax,11111 ;Vergleichswert holen 


mov dl,0 
cmp ax,es:[di] 
jne notinst 


;Annahme: Nicht identisch 

;mit Installationsflag vergleichen 

;ungleich: Nicht installiert 


mov dl,1 
notinst: mov al,dl 

ret 


jgleich: Installiert 
;Return-Code nach AL holen 
•»zurück zum Aufrufer 


testinst endp 


;Ende der Prozedur 


; TSRUNINST: reinstalliert das TSR-Programm 


tsruninst proc near 

push ds 

mov ax,3509h 
int 21h 

cli 

mov ax,2509h 
mov ds,es:int9seg 
mov dx,es:int9ofs 
int 21h 

mov ax,2513h 
mov ds,es:intl3seg 
mov dx,es:intl3ofs 
int 21h 


;DS auf dem Stack sichern 

;Holt Segmentadresse der neuen 
;Interrupt-Routinen 

;Alten Interrupt-Vektor 9h setzen 

;Alten Interrupt-Vektor 13h setzen 
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int09 


mov 

ax,2516h 

;Alten Interrupt-Vektor 16h 

mov 

ds,es:intl6seg 


mov 

dx,es:intl6ofs 


int 

21h 


sti 


•.Interrupts wieder erlauben 

mov 

es,es:tppspseg 

;PSP-Segmentadresse des TSR- 

mov 

cx,es 

; holen 

mov 

es,es:[02ch] 

;Segmentadresse Environment 

mov 

ah,49h 


int 

21h 

Speicher frei geben 

mov 

es,cx 


mov 

ah,49h 


int 

21h 

;Spei eher frei geben 

pop 

ds 

;DS wieder vom Stack holen 

ret 



endp 


;Ende der Prozedur 

Interrupt 09h-Routine 


proc 

far 


pushf 

;Aufruf der alten Routine 

call 

cs:int9ptr 


cl i 


;Interrupts verbieten 

cmp 

cs:rekflag,0 

;TSR-Programm bereits aktiv“ 

jne 

notsr 

;Ja, Ende! 

cmp 

cs:intl3flag,0 

;BIOS-Disk-Interrupt aktiv? 

jne 

notsr 

;Ja, Ende! 

push ax 


push es 


xor 

ax,ax 

;Hot-Key betätigt? 

mov 

es,ax 


mov 

ax,word ptr es:[417h] 

and 

ax,cs:hotkey 


cmp 

ax,cs:hotkey 


pop 

es 


pop 

ax 


jne 

notsr 

;Nein, Ende! 

push ds 


push bx 


Ids 

bx,cs:indos 


cmp 

byte ptr [bx],0 

;IND0S-F1ag holen 

pop 

bx 


pop 

ds 

;DOS-Funktion aktiv? 
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je tsrstart 
push ax 

mov ah,cs:intl6flag 
cmp ah,0 
pop ax 
jnz notsr 

tsrstart: call tsrbegin 

notsr: sti 

iret 

int09 endp 


;Nein, TSR-Aufruf möglich! 

;BIOS—Flag prüfen 

;= 0, dann warten auf Tastendruck 

;Nein, Ende! 

;TSR-Programm aufrufen 

;Interrupts wieder zulassen 
jzurück zum unterbrochenen Programm 


;TSR-Programm aktivieren 


tsrbegin 


1 abl: 


proc near 


mov cs:rekflag,l 

;TSR-Rekursions-Flag setzen 

mov cs:stseg,ss 

jaktuelles Stacksegment und Stack- 

mov cs:stptr,sp 

;zeiger merken 

mov ss,cs:tpss 

;den Stack des Pascal-Programms 

mov sp,cs:tpsp 

;aktivieren 

push es 

;die Register auf dem Stack 

push ds 

;des Pascal-Programms sichern 

push di 


push si 


push bp 


push dx 


push cx 


push bx 


push ax 


mov cx,64 


mov ds,cs:stseg 


mov si,cs:stptr 

;D0S-Stack sichern 

push word ptr [si] 


inc si 


inc si 


loop labl 


mov ah,51h 

;Adresse des PSP holen 

int 21h 


mov cs:pspseg,bx 

;und merken 

mov ah,2fh 

;DTA-Adresse holen 

int 21h 


mov cs:dtaofs,bx 


mov cs:dtaseg,es 

;und merken 
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mov 

ah,50h 

;PSP des Pascal-Programms setzen 

mov 

bx,cs:tppspseg 


int 

21h 


mov 

ah,Iah 

;DTA-Adresse des Pascal-Programms setzen 

mov 

dx,cs:tpdtaofs 


mov 

ds,cs:tpdtaseg 


int 

21h 


mov 

ds,cs:tpds 

;Segment-Register für das Pascal- 

mov 

es,cs:tpes 

;Programm setzen 

sti 


;Interrupts wieder zulassen 

call 

cs:tsradr 

;TSR-Programm aufrufen 

cl i 


;Interrupts verbieten 

mov 

ah,Iah 

;DTA-Adresse des unterbrochenen 

mov 

dx,cs:dtaofs 


mov 

ds,cs:dtaseg 


int 

21h 

;Programms setzen 

mov 

ah,50h 

;PSP des unterbrochenen 

mov 

bx,cs:pspseg 


i nt 

21h 

;Programms setzen 

mov 

cx,64 


mov 

ds,cs:stseg 

;D0S-Stack vom Stack des 

mov 

si ,cs:stptr 


add 

si,128 

;Pascal-Programms holen 

dec 

si 


dec 

si 


pop 

word ptr [si] 


loop lab2 


pop 

ax 

;Register vom 

pop 

bx 

;Stack des Pascal-Programms holen 

pop 

cx 


pop 

dx 


pop 

bp 


pop 

si 


pop 

di 


pop 

ds 


pop 

es 


mov 

ss,cs:stseg 

;Stack des unterbrochenen Programms 

mov 

sp,cs:stptr 

;restaurieren 

mov 

cs:rekflag,0 

;TSR-Rekursions-Flag zurücksetzen 

ret 



endp 
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;Die neue Interrupt 13h-Routine 

int13 proc far 

mov cs:intl3flag,l 
pushf 

call cs:intl3ptr 
mov cs:intl3flag, 0 
ret 2 

int13 endp 

;Die neue Interrupt 16h-Routine 


i nt 16 

proc far 

mov cs:intl6flag 
pushf 

call cs:intl6ptr 
mov cs:intl6flag 
ret 2 

i nt 16 

endp 

; Variablen 

aktflag 

dw 0 

tpss 

dw 0 

tpsp 

dw 0 

tpds 

dw 0 

tpes 

dw 0 

tpdtaofs 

dw 0 

tpdtaseg 

dw 0 

tppspseg 

dw 0 

tsradr 

dw 0 

hotkey 

dw 0 

rekflag 

db 0 

int13f1ag 

db 0 

intl6f1ag 

db 111 

indos 

equ this dword 

indosofs 

dw 0 

indosseg 

dw 0 

intl3ptr 

equ this dword 

intl3ofs 

dw 0 

intl3seg 

dw 0 

intl6ptr 

equ this dword 

intlöofs 

dw 0 

intl6seg 

dw 0 

int9ptr 

equ this dword 

int9ofs 

dw 0 

int9seg 

dw 0 

dtaofs 

dw 0 

dtaseg 

dw 0 

pspseg 

dw 0 

stseg 

dw 0 

stptr 

dw 0 

CODE 

ends 


end 


;BIOS-Disk-Interrupt aktiv 

;Aufruf der alten Interrupt 13h-Routine 

;BIOS-Disk-Interrupt nicht mehr aktiv 
jzurück zum unterbrochenen Programm 


;BIOS-Funktionsnummer merken 
;Aufruf der alten Interrupt 16h-Routine 

;BIOS-Interrupt nicht mehr aktiv 
;zurück zum unterbrochenen Programm 


;Aktivierungs-Flag 
;Stacksegment des Pascal-Programms 
;Stackpointer des Pascal-Programms 
;Datensegment des Pascal-Programms 
;Extrasegment des Pascal-Programms 
;DTA-Adresse des Pascal-Programms 

;Segmentadresse des PSP des Pascal-Prog. 
;Adresse der TSR-Prozedur 
;Hotkey-Maske für BIOS-Tastaturflag 
;Rekursionsflag 
;BIOS-Disk-Interrupt-Flag 
;BIOS-Tastatur-Interrupt-Flag 
;Pointer auf das DOS-Indos-Flag 
;INDOS—Flag Offsetadresse 
;INDOS—Flag Segmentadresse 
;Alter Interrupt-Vektor 13h 
;Interrupt-Vektor 13h Offsetadresse 
;Interrupt-Vektor 13h Segmentadresse 
;Alter Interrupt-Vektor 16h 
;Interrupt-Vektor 16h Offsetadresse 
;Interrupt-Vektor 16h Segmentadresse 
;Alter Interrupt-Vektor 9h 
;Interrupt-Vektor 9h Offsetadresse 
;Interrupt-Vektor 9h Segmentadresse 
;DTA-Adresse (Offset) 

;DTA-Adresse (Segment) 

;Segmentadresse des PSP 
;Stacksegment des unterbrochenen Prog. 
•»Stackpointer des unterbrochenen Prog. 

;Ende des Codesegments 
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Zum Schluß dieses Kapitels möchte ich Ihnen sozusagen als Ausklang 
nach dem TSR-Streß eine Unit vorstellen, die es erlaubt, Programme nach¬ 
zuladen, wobei Variablen übergeben werden können. 

Turbo Pascal bietet zwar eine gute Overlay-Unit an, die jedoch den Nach¬ 
teil aufweist, daß immer ein Modul im Speicher gehalten werden muß. Bei 
den Platzproblemen des Portfolio scheint es aber angebracht zu sein, auch 
das Nachladen eines Programmteils zu ermöglichen, wobei der erste 
komplett aus dem Speicher entfernt wird. 

Der folgende Trick stammt aus meinen C64-Zeiten, wo ebenfalls massive 
Speicherprobleme auftraten. Er funktioniert, indem in den Tastaturpuffer 
per Hand die Codes eingetragen werden, die sonst von dem Interrupt-$09- 
Handler vorgenommen werden. Wenn Sie im Kommandoprozessor einen 
Programmnamen mit einem abschließenden Carriage-Retum eingeben, 
bedeutet dies, daß dieser das Programm sucht und startet. Wenn Sie nun 
die einzelnen Codes des Programmnamens und den Code für den 
Carriage-Retum ($13) bereits in einem anderen Programm in den 
Tastaturpuffer schreiben, müssen Sie hierzu keine Tasten mehr drücken: 
Sofort nach der Beendigung des Programms wird das nächste gestartet, 
also de facto nachgeladen. Die Variablen müssen jedoch vorher in eine 
Datei gerettet werden, da der Speicher des aufrufenden Programms nach 
dessen Ende freigegeben wird. 

Die Unit besteht aus nur zwei Prozeduren: Speichern sichert die Variablen 
und lädt das folgende Programm nach. Dafür sind folgende Daten erfor¬ 
derlich: 

- Name der ersten Variablen 

- Name der letzten Variablen 

- Größe der letzten Variablen in Byte 

- Pfad und Name des nachzuladenden Programms 

- Pfad und Name der Sicherungsdatei 

Die Prozedur Laden benötigt nur den Namen der ersten Variablen und den 
Pfad- und Dateinamen der Sicherungsdatei. 

Wichtig: Das aufrufende und das nachzuladende Programm müssen 
exakt die gleichen Variablen in der gleichen Reihenfolge deklariert haben, 
sonst funktioniert die Übergabe nicht! 
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UNIT portovr; 

{written by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 


INTERFACE 

FUNCTION Spei ehern(VAR erste; VAR letzte; platz : word; name,datei : string) 
FUNCTION Laden(VAR erste; datei : string) : boolean; 

IMPLEMENTATION 

USES dos; 

FUNCTION Speichern(VAR erste; VAR letzte; platz : word; name,datei : string) 
CONST 

scan : array[0..64] of byte = ($39,$02,$03,$2B,$05,$06,$07,$0D,$09,$0A, 

$1B,$1B,$33,$35,$34,$08,$0B,$02,$03,$04, 

$05,$06,$07,$08,$09,$0A,$34,$33,$29,$0B, 

$29,$0C,$00,$1E,$30,$2E,$20,$12,$21,$22, 

$23,$17,$24,$25,$26,$32,$31,$18,$19,$10, 
$13,$1F,$14,$16,$2F,$11,$2D,$2C,$15,$09, 
$0C,$0A,$00,$35,$0D); 

VAR 

startof,endof,anzahl ,zahl ,i: word; 
f : file; 
help : byte; 
flag : boolean; 

BEGIN 

flag := false; 
startof := ofs(erste); 
endof := ofs(letzte); 
zahl := (endof-startof)+platz; 
assign(f»datei); 
rewrite(f,l); 

IF IOResult = 0 THEN BEGIN 
blockwrite(f»zahl ,2,anzahl); 
blockwrite(f,erste,zahl»anzahl); 
close(f); 

IF ((anzahl = zahl) and (IOResult = 0)) THEN BEGIN 
flag := true; 
name := Copy(name,l,15); 

FOR i:= 1 to length(name) DO BEGIN 
name[i] := Upcase(name[i]); 
help := Ord(name[i]); 
mem[$0040:$001C+2*i] := help; 
mem[$0040:$001D+2*i] := scan[heip-32]; 

END; 

help := 2*1ength(name); 
memw[$0040:$001E+help] := 13; 
memw[$0040:$001F+help] := $1C; 
memw[$0040:$001A] $1E; 

memw[$0040:$001C] := $lE+help+2; 

END; 


: boolean 


: boolean 
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END; 

Speichern := flag; 

END; 

FUNCTION Laden(VAR erste; datei ; String) ; boolean; 

VAR 

anzahl,zahl : word; 

f ; file; 

flag : boolean; 

BEGIN 

flag ;= false; 
assign(f,datei); 
reset(f,1); 

blockread(f.zahl,2,anzahl); 
blockread(f,erste,zahl,anzahl); 
close(f); 

IF ((IOResult = 0) and (zahl = anzahl)) THEN flag := true; 

END; 

BEGIN 

END. 

Hier sind nun zwei Beispielprogramme, wobei das erste (TestO) das zweite 
(Testl) nachlädt. 

PROGRAM TESTO; 

{OVERLAy-DEMO 

written by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 

{Das Programm füllt per Zufallsgenerator ein Record 
des Typs Adresse mit ASCII-Zeichen und lädt dann 
ein Programm "Testl" nach, welches auf diesen 
Record zugreifen wird, ohne ihn vorher initialisiert 
zu haben.} 


USES dos,portovr; 

TYPE adresse = record 

vorname: string[10]; 
nachname: string[10]; 
Strasse : string[10]; 
plz : word; 
ort : string[10]; 
telefon : longint; 


C0NST 

zahl : byte = 10; 
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meldung = 'Overlay-Fehler! Bitte Taste drücken.'; 

VAR i,j : word; 

data : array[1..10] of adresse; 

f : boolean; 

BEGIN 

Randomize; 

FOR i:= 1 TO zahl DO BEGIN 
data[i].vorname := ''; 
data[i].nachname := ''; 
data [i].ort := 11 ; 
data[i].Strasse := ''; 

FOR j:= 1 TO zahl DO BEGIN 

data[i].vorname := data[i].vorname + chr(65+random(26)); 
data[i].nachname := data[i].nachname + chr(65+random(26)) 
data[i].ort := data[i].ort + chr(65+random(26)); 
data[i].Strasse := data[i].Strasse + chr(65+random(26)); 
END; 

data[i].telefon := Round(1000*Random(4)); 
data[i].plz := Round(1000*Random(4)); 

END; 

FOR i;= 1 TO zahl DO BEGIN 
writeln(data[i].vorname,' ',data[i].nachname); 
writeln(data[i].plz,' ',data[i].ort); 
writeln(data[i].strasse,' Telefon : ',data[i].telefon); 
writeln; 

END; 

f := speichern^',f,sizeof(f), 'a:\testl' , 'c:\data' ); 

if NOT f then BEGIN 
writeln(meldung); 
readln; 
halt; 

END; 

END.-> 

PROGRAM TEST1; 

USES dos,portovr; 

TYPE adresse = record 

vorname: string[10]; 
nachname: string[10]; 
strasse : string[10]; 
plz : word; 
ort : string[10]; 
telefon : longint; 

END; 

CONST 

zahl : byte - 10; 

tel : string[10] = 'Telefon : '; 

VAR i,j : word; 

data : array[1..10] of adresse; 

f : boolean; 
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BEGIN 

f := 1aden(i, 'c:\data') ; 
if NOT f then BEGIN 

writeln('Overlay-Fehler! Bitte Taste drücken.'); 
halt; 

END; 

FOR i:= 1 TO zahl DO BEGIN 
writeln(data[i].vorname,' ',data[i].nachname); 
writeln(data[i].plz,' ',data[i].ort); 
writeln(data[i] .Strasse,' ',tel,data[i].telefon); 
writeln; 

END; 

END. 


2.10 Objektorientierte Programmierung auf dem Portfolio 

Die objektorientierte Programmierung, auch kurz OOP genannt, ist als ein 
neues Konzept zur Lösung komplexer Programmieraufgaben zu verstehen. 
Dabei tun sich viele Leute beim Verstehen der OOP schwer; der beste Weg, 
in die Materie einzusteigen, ist, sich ein OOP-Programm zu nehmen und 
das Programm zu debuggen. Dieses wollen wir hier dann auch tun... Sie 
sollten dabei nicht gleich die Flinte ins Korn werfen, wenn Sie das 
Programm nicht gleich verstehen. Auch Turbo-Pascal-Profis haben 
zuweilen Probleme mit der objektorientierten Programmierung. Das 
Problem besteht meiner Ansicht nach vor allen Dingen darin, daß viele 
selbsternannte Experten, z.B. Redakteure von Fachzeitschriften, beliebig 
viele Artikel über OOP verfassen, jedoch offensichtlich ohne verstanden zu 
haben, worum es wirklich geht. Nur so kann ich mir erklären, daß seiten¬ 
weise theoretische Abhandlungen vorgenommen werden, die aus irgend¬ 
welchen Büchern extrahiert wurden, wenn es aber darum geht, ein 
Beispielprogramm zu präsentieren, müssen die Herren allesamt passen. 
Ich jedenfalls habe bis heute noch in keinem Buch und in keiner Zeit¬ 
schrift ein OOP-Programm gefunden, das halbwegs alle Möglichkeiten der 
OOP verdeutlicht hätte. Da man natürlich aber auch auf dem Portfolio 
OOP-Programme ablaufen lassen kann, möchte ich die Gelegenheit wahr¬ 
nehmen, Ihnen ein Beispielprogramm zu präsentieren. 
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Um objektorientierte Programme verstehen zu können, brauchen Sie erst 
einmal eine Erläuterung der folgenden Begriffe: 

Vererbung: Bei der Definition eines Objekts wird dieses in einen sog. 

Objektstammbaum eingeordnet. Jedes Objekt erbt dabei 
den Code und die Daten der Vorfahren. 


Kapselung: 


Polymorphie: 


In einem Objekt werden Code und Daten miteinander 
verbunden. Diese Verbindung bezeichnet man als 
Kapselung. 

Wird in einem Objekt eine Funktion definiert, dann 
implementiert jedes Objekt, das diese Funktion geerbt 
hat, die Funktion in der für dieses Objekt erforderlichen 
Art und Weise. 


Methode: Eine in einem Objekt definierte Prozedur oder Funktion. 


Das Programm SCHUELER.EXE dient zur Erfassung z.B. von Laufzeiten 
bei Sportveranstaltungen verschiedener Schulklassen. Dabei kann eine 
Liste sortiert nach Klassen und eine Liste sortiert nach Leistungen ausge¬ 
geben werden. Weiterhin können die Daten gespeichert und wieder 
geladen werden. Nach dem Start des Programms erscheint ein Menü, aus 
dem Sie durch Eingabe einer Ziffer die entsprechende Funktion auswählen 
können. Der Source-Code zu diesem Programm wird im folgenden dar¬ 
gestellt. 


PROGRAM Schule; 

{$M 10000,20000,20000} 

{Beispiel für die Verwaltung einer Klassenstufe 

written by Frank Riemenschneider 
Postfach 730309 
3000 Hannover 71} 


USES dos,portcrt; 


(xxxxxxxxxxxxxxxxxxxxxxxxxxxx Konstanten xxxxxxxxxxxxxxxxxxxxxxxxxxx) 

C0NST 

zeit_8 =8.30; { Normalzeit Klasse 8 - hier als Beispiel } 

bon_8 = 30; { Vorgabe der Mä. Klasse 8 - ebenso } 

tab : array[l..7] of byte = (1, 4, 16, 27, 31, 33, 35); 

maxzeile = 23; 

anfangszeile = 4; { ..der Bildschirmausgabe ohne Überschrift } 

fullstern : string[80] = 

1 xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx 1 ; 
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randstern : string[l] = 'x'; 
ASCII = 0; 

Scan = 1; 
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(xxxxxxxxxxxxxxxxxxxxxxxxxxxx Typ Deklarationen xxxxxxxxxxxxxxxxxxx) 


TYPE 


Schuelerdaten = RECORD 
Klassenbezeichnung 
Klassennummer 
Nummer 
Nachname 
Vorname 
genus 

angemeldet 
teil genommen 
Laufzeit 


( zur Datensicherung } 
string [7]; 
byte; 
byte; 

string[18]; 
string[18]; 
boolean; 
boolean; 
boolean; 
real; 


END; 


(xxxxxxxxxxxxxxxxxxxxxxxxxObjekttyp Deklarationen xxxxxxxxxxxxxxxxxxx) 

TYPE 

Name = OBJECT 

nachname, vorname : string[18]; 

zeile, Xn, Xv : byte; 

CONSTRUCTOR init(nachn, vorn: string); 

FUNCTION getnachn: string; 

FUNCTION getvorn: string; 

FUNCTION getzeile: byte; 

PROCEDURE putzeile(zl: integer); 

PROCEDURE anlegen(zl: byte); virtual; 

FUNCTION z: byte; { diese beiden Funktionen ermitteln...} 

FUNCTION Seite: byte; {...auf weleher Bildschirmhälfte... } 

PROCEDURE Ausgabe;virtual; {...die Ausgabe erfolgen soll } 

END; 


Person = OBJECT(Name) 

genus : boolean; { Mädchen/Junge } 

Xg : byte; 

CONSTRUCTOR init(nachn, vorn: string; gen: boolean); 

FUNCTION getgen:boolean; 

PROCEDURE anlegen(zl: byte); virtual; 

PROCEDURE ausgabe; virtual; 

END; 

Teilnehmer = OBJECT(Person) 

angemeldet, teil genommen : boolean; 

Laufzeit : real; 

Xa, Xt, XI : byte; 

CONSTRUCTOR init(nachn, vorn: string; gen: boolean; 

ang, tlg: boolean; lz: real); 
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FUNCTION getang : boolean; 

FUNCTION gettlg : boolean; 

FUNCTION getlz : real; 

PROCEDURE tg; 

PROCEDURE ntg; 

PROCEDURE umnielden; 

PROCEDURE ausgabe; virtual; 

PROCEDURE lieszeit; 


scPtr = ^Schueler; 

knPtr = ''knoten; 

knoten = RECORD 

next : knPtr; 

item : scPtr; 

END; 


Schueler = OBJECT(Teilnehmer) 

Klassennummer, Xkl : byte; 

nummer, Xnr : byte; 

Klassenbezeichnung : string[7]; 

Zkbz, Xkbz : byte; 

CONSTRUCTOR init(nachn, vorn, klbz: string; bon, ang, tlg: boolean; 

1 z: real; nr, klnr: byte); 

FUNCTION getnr: byte; 

FUNCTION getklnr: byte; 

FUNCTION getklbz: string; 

DESTRUCTOR done; virtual; 

PROCEDURE ausgabe; virtual; 

PROCEDURE ausgabe2; virtual; {Ausgabe für die Jahrg. - Bestenl.) 
PROCEDURE anlegen(zl: byte); virtual; 

PROCEDURE maske; 

END; 


Jahrgangsliste = OBJECT 
CONSTRUCTOR init; 

PROCEDURE load; 

PROCEDURE störe; 

PROCEDURE add(VAR K: knPtr; S: scPtr); 

PROCEDURE sortieren(VAR K: knPtr); 

PROCEDURE loeschen(klnr, nr: byte); 

PROCEDURE meldum(klnr, nr: byte); 

PROCEDURE ausgeben; { wird noch nicht verwendet } 
DESTRUCTOR done; virtual; 

END; 

Jahrgangsbestenliste = OBJECT(Jahrgangsliste) 

Start : knPtr; 

CONSTRUCTOR init; 

PROCEDURE einsammeln(gen: boolean); 

PROCEDURE sortieren(VAR K: knPtr); 

PROCEDURE ausgeben; 
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PROCEDURE herstellen; 
DESTRUCTOR done; virtual; 


Klassenbestenliste = OBJECT(Jahrgangsbestenliste) 
CONSTRUCTOR init; 

PROCEDURE einsammeln(gen: boolean; klnr: byte); 
PROCEDURE herstellen(klnr: byte); 

END; 


Klassenliste = OBJECT(Jahrgangsliste) 
anfang : knPtr; 

CONSTRUCTOR init; 

FUNCTION ausgeben(klnr: byte): knPtr; 
PROCEDURE listeanlegen(klnr: byte); 
PROCEDURE numerieren(klnr: byte); 

PROCEDURE loeschen(klnr: byte); 

PROCEDURE ummelden(klnr: byte); 

PROCEDURE zeiteingeben(klnr: byte); 
FUNCTION durchschnitt(klnr: byte): String; 
END; 


(xxxxxxxxxxxxxxxxxxxxxxx Variablen xxxxxxxxxxxxxxxxxxxxxxxx) 


modus 

wähl 

SCR 

temp 

root 

Einejahrgangsliste 
Einejahrgangsbestenliste 
Eineklassenbestenliste 
Eineklassenliste 


byte; 

string; 

knPtr; 

string; 

knPtr; 

Jahrgangsliste; 
Jahrgangsbestenliste; 
Klassenbestenliste; 
Klassenliste; 


{xxxxxxxxx Methoden des Typs "Name" xxxxxxxxxxxxxxxxxxx} 

CONSTRUCTOR Name.init(nachn, vorn: string); 

BEGIN 

nachname := nachn; 
vorname := vorn; 
zeile := anfangszeile; 

Xn := tab [2] ; 

Xv := tab[3] ; 

END; 


FUNCTION Name.getnachn: string; 
BEGIN 

getnachn := nachname; 
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END; 


FUNCTION Name.getvorn: string; 
BEGIN 

getvorn := vorname; 

END; 


FUNCTION Name.getzeile: byte; 
BEGIN 

getzeile := zeile; 

END; 


PROCEDURE Name.putzei1e(zl: integer); 
BEGIN 

zeile := zl; 

END; 


FUNCTION Name.Seite: byte; 

BEGIN 

IF zeile < maxzeile THEN Seite := 0 
ELSE Seite := 40; 

END; 


FUNCTION Name.z: byte; 

BEGIN 

IF zeile < maxzeile THEN z := zeile 
ELSE z := zeile - maxzeile + anfangszeile; 
END; 


FUNCTION LesTaste(modus: byte) : byte; 
VAR reg : registers; 

BEGIN 

IF modus = 0 THEN BEGIN 
reg.ah := 0; 
intr(22,reg); 

LesTaste := reg.al; 

END 

ELSE BEGIN 
LesTaste := reg.ah; 

END; 

END; 


PROCEDURE Eingabe(var ss: string; x,y,maxlaenge, 
numerisch : byte; vs: string); 

VAR taste : byte; 

posi,code,1aenge : byte; 

i : byte; 
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flag : boolean; 

BEGIN 

GotoXY(x,y); 

FOR i:= 1 TO maxlaenge DO begin 
writeC '); 
end; 

GotoXY(x,y); 
write(vs); 

GotoXY(x,y); 
ss:= vs; 

laenge := length(ss); 
posi := 0; 
flag := true; 

REPEAT 

GotoXY(x+posi,y); 

taste := Ord(LesTaste(ASCII)); {ASCII-Code holen} 

Code := Ord(LesTaste(scan)); 

IF flag THEN begin 
IF ((code <> $1C) and (code <> $0E) 

and (code <> $52) and (code <> $53) 

and (code <> $4B) and (code <> $4D) 

and (code <> $47) and (code <> $4F)) then begin 

FOR i:= 1 TO maxlaenge DO begin 
writeC '); 

END; 

ss := "; 
laenge ;= 0; 

GotoXY(x,y); 

END; 

END; 

flag := false; 

IF (((laenge < maxlaenge) or (posi < laenge)) 
and ((taste >31) and (taste<156)) 
and ((numerisch<>0) or ((taste = 43) or 
(taste = 46) or ((taste >47) and (taste<58))))) 

THEN BEGIN 

IF posi = laenge THEN BEGIN 
inc(laenge); 
inc(ss [0]); 

END; 

inc(posi); 

wri te(chr(taste)); 

ss[posi] := chr(taste); 

END; 


{Hier beginnen, wenn Backspace gedrückt. (Über Scan-Code)} 
CASE code 0F 


$0E : BEGIN 

IF posi > 0 THEN BEGIN 
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dec(posi); 
dec(laenge); 

ss := Copy(ss,l,posi)+Copy(ss,posi+2,100); 
GotoXY(x,y); 
write(ss+' '); 

END; 

END; 

$53 : BEGIN 

IF posi < laenge THEN BEGIN 
dec(laenge); 

ss := Copy(ss,l,posi)+Copy(ss,posi+2,100); 
GotoXY(x.y); 
write(ss+' '); 

END; 

END; 

$4B ; IF posi > 0 THEN dec(posi); 

$4D : IF posi < laenge THEN inc(posi); 


$52 : BEGIN 

IF ((laenge < maxlaenge) and (posi < laenge)) THEN BEGIN 
ss := Copy(ss,l,posi)+' '+Copy(ss,posi+l,100); 
GotoXY(x,y); 
write(ss); 
inc(laenge); 

END; 

END; 


$47 : posi := 0; 

$4F : posi := laenge; 


END; 

UNTIL code = $1C; {Abschluß mit RETURN} 

END; 


PROCEDURE Standardbild; 

VAR i : byte; 

BEGIN 

ClrScr; 

write(full Stern); 

GotoXY(0,2); 

write('xxxxxxxxxxxxxxxxxxxxxxxxxxxx M & T SCHÜLERSPORT xxxxxxxxxxxxxxxxxxxxxxxx 1 ); 
GotoXY(0,4); 

write(’xxxxxxxxxxx (C)opyright 1990 by Markt & Technik Aktiengesellschaft xxxxxxxxxxx'); 
GotoXY(0,6); 
write(full Stern); 

GotoXY(0,0); 

F0R i := 0 to 22 DO BEGIN 
write(randstern); 
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GotoXY(79,i); 
write(randstern); 

END; 

write(ful1stern); 

END; 

PROCEDÜRE Name.anlegen(zl: byte); 
VAR s : string; 

BEGIN 

zeile := zl; 
gotoxy(Xn + Seite, z); 
Eingabe(s,Xn+seite,z,12,l, 1 '); 
Nachname := s; 
gotoxy(Xv + Seite, z); 
Eingabe(s,Xv+seite,z,10,l,''); 
Vorname := s; 

END; 


PROCEDÜRE Name.ausgabe; 
BEGIN 

gotoxy(Xn + Seite, z); 
write(Nachname); 
gotoxy(Xv + Seite, z); 
write(Vorname); 

END; 


{xxxxxxxxx Methoden des Objekttyps "Person"xxxxxxxx} 

CONSTRUCTOR Person.init(nachn, vorn: string; gen: boolean); 
BEGIN 

genus := gen; 

Xg := tab[4]; 

Name.init(nachn, vorn); 

END; 


FUNCTION Person.getgen: boolean; 
BEGIN 

getgen := genus; 

END; 


PROCEDÜRE Person.anlegen(zl: byte); 

VAR ch : char; 
s : string; 

BEGIN 

zeile := zl; 

Name. anlegen(zeile); 
gotoxy(Xg + Seite, z); 

REPEAT { genus ei niesen } 

Eingabe(s,Xg+seite,z,l,l,''); 
ch := Upcase(s[l]); 
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UNTIL (ch = ’M') or (ch = 1 J'); 
gotoxy(Xg + seite, z); 

IF ch = ’M' THEN 
BEGIN 

genus := TRUE; 
write( 1 M'); 

END 

ELSE 

BEGIN 

genus := FALSE; 
writeC 0'); 

END; 


PROCEDURE Person.ausgabe; 

BEGIN 

gotoxy(Xg + Seite, z); 

IF genus = TRUE THEN write ('M') 
ELSE writeC J'); 

Name.ausgabe; 

END; 


{xxxxxxxxx Methoden von "Teilnehmer" xxxxxxxxxxxxxxxxxx} 


CONSTRUCTOR Tei1nehmer.init(nachn, vorn: string; gen: boolean 
ang, tlg: boolean; lz: real); 


BEGIN 


angemeldet 

= ang; 

teil genommen 

= tlg; 

laufzeit 

= lz; 

Xa 

= tab[5]; 

Xt 

= tab [6]; 

XI 

= tab [7]; 

Person.init(nachn, vorn, gen) 


END; 


FUNCTION Teilnehmer.getang:boolean; 
BEGIN 

getang := angemeldet; 

END; 


FUNCTION Teilnehmer.gettlg: boolean; 
BEGIN 

gettlg := teil genommen; 

END; 


FUNCTION Teilnehmer.getlz: real; 
BEGIN 

getlz := laufzeit; 
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PROCEDURE Teilnehmer.tg; 
BEGIN 

teil genommen := TRUE; 
END; 


PROCEDURE Teilnehmer.ntg; 
BEGIN 

teil genommen := FALSE; 
END; 


PROCEDURE Teilnehmer.ummelden; 

BEGIN 

angemeldet := NOT angemeldet; 

IF angemeldet = FALSE THEN laufzeit := 0.00; 
END; 


PROCEDURE Tei1nehmer.1ieszeit; 

VAR 

t : real; 
s : String; 
i : integer; 

BEGIN 

IF angemeldet = FALSE THEN laufzeit := 0.00 ELSE 
BEGIN 

IF teil genommen = FALSE THEN laufzeit := zeit_8 ELSE 
BEGIN 

gotoxy(Xl + Seite, z); 
readln(s); 
val(s, t, i); 

IF (t >= 3) and (t < 10.00) and (i = 0) and (frac(t) < 0.6) THEN BEGIN 
laufzeit := t 
END 

ELSE BEGIN 
gotoxy(l, 23); 

write( 1 xxxxxxxxxxxxxxxxxxxxxxxxxxx Falsehe Eingabe!!! xxxxxxxxxxxxxxxxxxxxxxxxxxx 1 ); 
1ieszeit; 

END; 

END; 

END; 

END; 


PROCEDURE Tei1nehmer.ausgabe; 

BEGIN 

Person.ausgabe; 

gotoxy(Xa + Seite, z); IF angemeldet = TRUE THEN write('J') 

ELSE write('N'); 

gotoxy(Xt + Seite, z); IF teil genommen = TRUE THEN write('J') 
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gotoxy(Xl + Seite, z); write(1 aufzeit:4:2); 
END; 


{xxxxxxxxxxxxxxxxxx Methoden von "Schueler" xxxxxxxxxxxxxxxxxxxxxxxxxx} 

CONSTRUCTOR Schueler.ini t(nachn, vorn, klbz: String; bon, ang, tlg: boolean 

lz: real; nr, klnr: byte); 


BEGIN 

Klassenbezeichnung := klbz; 

Xkbz := 30; 

Zkbz := 1; 

nummer := nr; 

Klassennummer := klnr; 

Xnr := tab[l]; 


Teilnehmer.init(nachn, vorn, bon, ang, tlg, lz); 

END; 


FUNCTION Schueler.getklbz: string; 
BEGIN 

getklbz := Klassenbezeichnung; 
END; 


FUNCTION Schueler.getnr: byte; 
BEGIN 

getnr := nummer; 

END; 


FUNCTION Schueler.getklnr: byte; 
BEGIN 

getklnr := Klassennummer; 

END; 


DESTRUCTOR Schueler.done; 

BEGIN 

END; 


PROCEDURE Schueler.ausgabe; 
BEGIN 

gotoxy(Xnr + Seite, z); 
write(nummer); 

Teilnehmer.ausgabe; 

END; 


PROCEDURE Schueler.ausgabe2; 
BEGIN 
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gotoxy(Xnr + Seite, z); 
write(nummer); 
Name.ausgabe; 
gotoxy(Xg + Seite, z); 
wri te(Klassenbezeichnung); 
gotoxy(Xl + Seite, z); 
write(laufzeit:4:2); 

END; 


PROCEDURE Schueler.anlegen(zl: byte); 

VAR 

s : string; 
nr : longint; 
code : integer; 

BEGIN 

zeile ;= zl; 

REPEAT 

gotoxy(Xnr + seite, z); 
Eingabe(s,xnr+seite,z,3,0,' 1 ); 
val(s, nr, code); 

UNTIL (code = 0) and (nr >= 0) and (nr <= 255); 
nummer := nr; 

Person.anlegen(zeile); 

END; 


PROCEDURE Schueler.maske; 

CONST 

text: array[1..7] of string[20] = 

('Nr ', 'Nachname ','Vorname ','M/J ','A ', 'T ', 'Zeit '); 


VAR 

i: byte; 

BEGIN 
CIrScr; 
gotoxy(l,2); 

FOR i := 1 to 7 DO 
BEGIN 

write(text [i]); 
END; 

FOR i := 1 to 7 DO 
BEGIN 

write(text[i]); 
END; 

END; 


{xxxxxxxxxxxxxxxxxx Methoden von Jahrgangsliste xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx} 


C0NSTRUCT0R Jahrgangsliste.init; 

BEGIN 

END; 
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PROCEDURE Jahrgangsliste.add(VAR K: knPtr; S: scPtr); 
VAR 

KN : knPtr; 

BEGIN 

KN := NEW(knPtr); 

KN A .next := K; 

KN A .Item := S; 

K := KN; 


PROCEDURE Jahrgangsliste.sortieren(VAR K: knPtr); 

VAR 

KN, L: knPtr; 
temp : scPtr; 

BEGIN 
KN := K; 

WHILE KN A .next <> NIL DO 
BEGIN 

L := KN A .next; 

WHILE L <> NIL DO 
BEGIN 

IF KN A .itenT.getnachn > L A .item A .getnachn THEN 
BEGIN 

temp := KN A .item; 

KN A .item := Leitern; 

L A .item := temp; 

END; 

L := L A .next; 

END; 

KN := KN A .next; 

END; 

END; 


PROCEDURE Jahrgangsliste.loeschen(klnr, nr: byte); 

VAR 

K : knPtr; 

BEGIN 

IF (root A .item A .getklnr = klnr) and (root A .item A .getnr = nr) THEN 
root := root A .next ELSE 
BEGIN 
K := root; 

WHILE K A .next <> NIL DO 
BEGIN 

IF (K A .next A .item A .getklnr = klnr) and (K A .next A .item A .getnr = nr) THEN 
K A .next := K A .next A .next; 

IF K A .next <> NIL THEN K := K A .next; 

END; 

END; 

END; 
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PROCEDURE Jahrgangsliste.meldum(klnr, nr: byte); 

VAR 

K : knPtr; 

BEGIN 

K := root; 

WHILE K <> NIL DO 
BEGIN 

IF (K^.item^.getklnr = klnr) and (K^.itenT.getnr = nr) THEN 
BEGIN 

K^.itenT.ummelden; 
exit; 

END 

ELSE 

K ;= r.next; 

END; 

END; 


PROCEDURE Jahrgangsliste.ausgeben; 

VAR 

K : knPtr; 

N : Teilnehmer; 
sc: Schueler; 
i : byte; 

BEGIN 

K := root; 
i := anfangszeile; 

WHILE K <> NIL DO { zuerst die richtigen Zeilen setzen } 

BEGIN 

K^. itenT. putzei 1 e (i); 
inc(i); 

K := K^.next; 

END; 

sc.maske; 

K := root; 

WHILE K <> NIL DO 
BEGIN 

K^.item^.ausgabe; 

K := r.next; 
inc(i); 

END; 

END; 


PROCEDURE Jahrgangsliste.load; 
VAR 

s : string; 

scdat : Schuelerdaten; 
f : file of Schuelerdaten; 
BEGIN 

GotoXY(15,22); 
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write('Dateiname : < 
Eingabe(s,28,22,50,l,''); 
assign(f,s); 

{$H 

reset(f); 

{ $ 1 +) 


>'); 


{ Fehlererkennung aus } 


ein } 


IF ioResult = 0 THEN 
BEGIN 

WHILE not EOF(f) DO 
BEGIN 

read(f, scdat); 
with scdat DO 
BEGIN 

add(root,NEW(scPtr,init(nachname, vorname, Klassenbezeichnung, 
genus, angemeldet, teil genommen, laufzeit, nummer, Klassennummer))); 
END; 

END; 

sortieren(root); 
close(f); 

END 

ELSE 

BEGIN 

GotoXY(15,22); 

write('Datei fehl er - bitte <RTN> drücken! ') 

readln; 

END; 

Standardbild; 

END; 


PROCEDURE Jahrgangs!iste.störe; 

VAR 

s ; String; 

K : knPtr; 

scdat : Schuelerdaten; 

f : file of Schuelerdaten; 

BEGIN 

GotoXY(15,22); 

write('Dateiname : < >'); 

Eingabe(s,28,22,50,l,''); 
assign(f,s); 

{$1-} { Fehlerkennung aus } 

rewrite(f); 

{$1+} { ...wieder an} 

IF ioResult = 0 THEN 
BEGIN 

K := root; 

WHILE K <> NIL DO 
BEGIN 

with scdat DO 
BEGIN 


Klassenbezeichnung ;= K^.itenT.getklbz; 
Klassennummer := K^.itenT.getklnr; 


nummer 


= K A .item A .getnr; 
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nachname 
vorname 
genus 

angemeldet 
teil genommen 
laufzeit 
END; 

write(f, scdat); 

K := K^.next; 

END; 

close(f); 

END 
ELSE 
BEGIN 

GotoXY(15,22); 

writeCDatei fehl er - bitte <RTN> drücken! '); 

readln; 

END; 

END; 


K^.item^.getnachn; 

K^.item^.getvorn; 

K^.itenT.getgen; 

K^.itenT.getang; 

K A .item A .gettlg; 

K^.itenT.getlz; 


DESTRUCTOR Jahrgangsliste.done; 
VAR 

K : knPtr; 

BEGIN 

WHILE root <> NIL DO 
BEGIN 
K := root; 

disposeCK^.item, done); 
root := K^.next; 
dispose(K); 

END; 

END; 


{xxxxxxxxxxxxxxxxxxxxxxx Methoden von Jahrgangsbestenliste xxxxxxxxxxxxxxxxxxxxxxxxxx} 

CONSTRUCTOR Jahrgangsbestenliste.init; 

BEGIN 

Start := NIL; 

Jahrgangsliste.init; 

END; 


PROCEDURE Jahrgangsbestenliste.einsammeln(gen: boolean); 

VAR 

A : knPtr; 

S : scPtr; 

BEGIN 

A := root; 

WHILE (A <> NIL) DO 
BEGIN 

IF (A / \Item / \getgen = gen) and (A^.ItenT.getang « TRUE) 
and (A'MtenT.gettlg = TRUE) and (A'MtenT.getlz > 3) 
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THEN { nur tatsächliche Teilnehmer zählen } 

BEGIN { neuen Zeiger anlegen } 

S := NEW(scPtr, init(A A .item A .getnachn, A A .item^.getvorn, 

A A .itenT.getklbz, A A .itenT.getgen, A A .item A .getang, 
A^.iten^.gettlg, A A .item A .getlz, A A .itenT.getnr, 
A A .item A .getklnr)); 

add(start, S); {die Liste verlängern } 

END; 

A := A A .next; 

END; 

END; 


PROCEDURE Jahrgangsbestenliste.sortieren(VAR K: knPtr); 
VAR 

KN, L: knPtr; 
temp : scPtr; 

BEGIN 
KN := K; 

WHILE KN A .next <> NIL DO 
BEGIN 

L := KN A .next; 

WHILE L <> NIL DO 
BEGIN 

IF KN A .item A .getlz > L A .item A .getlz THEN 
BEGIN 

temp := KN A .item; 

KN A .item := L A .item; 

L A .item := temp; 

END; 

L := L A .next; 

END; 

KN := KN A .next; 

END; 

END; 


PROCEDURE Jahrgangsbestenliste.ausgeben; 

VAR 

S : knPtr; 
i : integer; 

BEGIN { zuerst richtige Platzziffern festlegen } 

sortieren(start); 

S := Start; 

1 := 1 ; 

WHILE S <> NIL DO 
BEGIN 

S A .itenT.nummer := i; 

IF (S A .item A .getlz <> S A .next A .itenr.getlz) THEN 
inc(i); { gleiche Zeiten - gleiche Ziffern } 

S := S A .next; 

END; 


S := Start; 
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i := anfangszeile; 

WHILE S <> NIL DO { zuerst die richtigen Zeilen festlegen } 

BEGIN 

IF S / \item / \getgen = FALSE THEN 
S A .ItenT.putzei1e(i + maxzeile - anfangszeile) 

ELSE 

S A .ItenT.putzei1e(i); 

S := S A .next; 
inc(i); 

END; 

gotoxy(15, 2); 

write('Mädchen Bestenliste Jungen 1 ); 

S := Start; 

WHILE S <> NIL DO { Ausgabe der Liste } 

BEGIN 

S A .itenr.ausgabe2; 

S := S A .next; 

END; 

END; 


DESTRUCTOR Jahrgangsbestenliste.done; 
VAR 

K ; knPtr; 

BEGIN 

WHILE Start <> NIL DO 
BEGIN 

K := Start; 

dispose(K A .item, done); 

Start := K A .next; 
dispose(K); 

END; 

END; 


PROCEDURE Jahrgangsbestenliste.herstellen; { eine Art Hauptprogramm } 
BEGIN 

einsammeln(TRUE); 

ausgeben; 

done; 

einsammeln(FALSE); 

ausgeben; 

done; 

END; 


{xxxxxxxxxxxxxxxxxxxxx Methoden von Klassenbestenliste xxxxxxxxxxxxxxxxxxxxxx} 

CONSTRUCTOR Klassenbestenliste.init; 

BEGIN 

Jahrgangsbestenliste.init; 

END; 
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PROCEDURE Klassenbestenliste.einsammeln(gen: boolean; klnr: byte); 

VAR 

A : knPtr; 

S : scPtr; 

BEGIN 

A := root; 

WHILE (A <> NIL) DO 
BEGIN 

IF (A A .Item A .getgen = gen) and (A A .ItenT.getang = TRUE) 
and (A A .ItenT.gettlg = TRUE) and (A A .ItenT.getlz > 3) 
and (A^.itenT.getklnr = klnr) 

THEN { nur tatsächliche Teilnehmer zählen ) 

BEGIN { neuen Zeiger anlegen } 

S := NEW(scPtr, init(A A .itenT.getnachn, A A .itenT.getvorn, 

A^.itenT.getklbz, A A .item^.getgen, A A .item A .getang, 
A A .item A .gettlg, A A .itenT.getlz, A A .item A .getnr, 
A A .item A .getklnr)); 

add(start, S); { die Liste verlängern } 

END; 

A := A A .next; 

END; 

END; 

PROCEDURE Klassenbestenliste.herstellen(klnr: byte); {eine Art Hauptprogramm} 
BEGIN 

einsammeln(TRUE, klnr); 

ausgeben; 

done; 

einsammeln(FALSE, klnr); 

ausgeben; 

done; 

END; 


{xxxxxxxxxxxxxxxxxxxx Methoden von Klassenliste xxxxxxxxxxxxxxxxxxxxxxxxxxxxx} 

CONSTRUCTOR Klassenl iste.ini t; 

BEGIN 

Jahrgangsliste.init; 

END; 


FUNCTION Klassenliste.ausgeben(klnr: byte): knPtr; 

VAR 

S, temp : knPtr; 
i : integer; 
sc : Schueler; 

BEGIN 

sortieren(root); { die sortierte Liste bearbeiten } 

S := root; 
i := anfangszeile; 

WHILE S <> NIL DO { zuerst die richtigen Zeilen festlegen } 

BEGIN 

IF S A .itenr.getklnr = klnr THEN 
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BEGIN 

S^. ItenT. putzei le(i); 
inc(i); 

S := S^.next; 

END 

ELSE S := S A .next; 

END; 

sc.maske; 

S := root; 
temp := root; 

WHILE S <> NIL DO { Liste ausgeben } 

BEGIN 

IF S^.itenT.getklnr = klnr THEN 
BEGIN 

S^.Item^.ausgabe; 
temp := S; 

S := S^.next; 

END 

ELSE S := S^.next; 

END; 

ausgeben := temp; 

IF temp <> root THEN 
BEGIN 

gotoxy(20, 1); 

write('Klassenbezeichnung: temp / \item / \getklbz); 

END; 

END; 


PROCEDURE Klassenliste.listeanlegen(klnr: byte); 

VAR 

K : knPtr; 

N : scPtr; 

sc : Schueler; 

klbz,s : String; 

ch : char; 

zl : byte; 

jgl : Jahrgangsliste; 

BEGIN 

sc.maske; 

K := ausgeben(klnr); { zuerst mal zeigen, was da ist } 

IF K = root THEN 
BEGIN 

zl := anfangszeile; 
gotoxy(20, 1); 

write('Klassenbezeichnung : < >'); 

Eingabe(klbz,43,l,3,l,''); 

END 

ELSE 

BEGIN 

zl := K^.itenT.getzeile + 1; { bei der nächsten Zeile geht es weiter } 
klbz := K / \item / \getklbz; 

END; 
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REPEAT 

N := NEW(scPtr, init('\ ",klbz, TRUE, TRUE, FALSE, zeit_8, 1, klnr)); 

N A .anlegen(zl); 
gotoxy(l, 23); 

write(‘xxxxxxxxxxxxxxxxxx Weiter: <W> Abbruch: <A> Menue: <M> xxxxxxxxxxxxxxxxxx'); 
REPEAT 

ch := Upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'W') or (ch = 1 A') or (ch = 'M‘); 
gotoxy(l, 25); 

IF ch = 'A' THEN exit; { zurück ohne zu speichern ) 

jgl.add(root, N); 

IF ch = 'W' THEN inc(zl); { weiter eingeben } 

IF ch = ’M' THEN { aufhören ) 

BEGIN 

gotoxy(l, 23); 

write('xxxxxxxxxxxxxxxxxxxx Soll neu numeriert werden? (J/N) xxxxxxxxxxxxxxxxxxx 1 ) 
REPEAT 

ch := upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'J’) or (ch = 'N'); 

IF ch = 'J' THEN numerieren(klnr); 
exit; 

END; 

UNTIL zl = 50; 

END; 


PROCEDURE Klassenliste.numerieren(klnr: byte); 
VAR 

i : byte; 

K : knPtr; 

jl: Jahrgangsliste; 

BEGIN 

sortieren(root); 

K := root; 
i := 1; 

WHILE K <> NIL DO 
BEGIN 

IF K A .item / \getklnr = klnr THEN 
BEGIN 

K A .Item A .nummer:= i; 
inc(i); 

K := K A .next; 

END 

ELSE K := K A .next; 

END; 

END; 


PROCEDURE Klassenliste.loeschen(klnr: byte); 
VAR 
K 

jgl 


: knPtr; 

: Jahrgangsliste; 
: byte; 
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nr : longint; 

s : String; 

code : integer; 

ch : char; 

BEGIN 

K := ausgeben(klnr); 

IF K = root THEN 
BEGIN 

gotoxy(5, 5); 

write ('Keine Klassenliste vorhanden!! <RTN> drücken!'); 

readln; 

exit; 

END; 

gotoxy(l, 23); 

write('xxxxxxxxxxxxxx Welche Nummer soll gelöscht werden? : < > xxxxxxxxxxxxxxx'); 

REPEAT 

Eingabe(s,56,23,3,0,''); 
val (s, nr, code); 

UNTIL (code = 0) and (nr > 0) and (nr <= 255); 
jgl.loeschen (klnr, nr); 

K := ausgeben(klnr); 
gotoxy(l, 23); 

write('xxxxxxxxxxxxxxxxxxxxxxxxxx Weiter: <W> Menue: <M> xxxxxxxxxxxxxxxxxxxxxxxxxx'); 
REPEAT 

ch := upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'W') or (ch = ’M'); 

IF ch = , M' THEN { aufhören } 

BEGIN 

gotoxy(l, 23); 

write('xxxxxxxxxxxxxxxxxxxxxx Soll neu numeriert werden? (J/N) xxxxxxxxxxxxxxxxxxxxx'); 
REPEAT 

ch := upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'J') or (ch = ’N'); 

IF ch = 'J' THEN numerieren(klnr); 
exit; 

END; 

IF ch = 'W' THEN loeschen(klnr); 

END; 


PROCEDURE Klassenliste.ummelden(klnr: byte); 

VAR 

K : knPtr; 

i : byte; 

nr : longint; 

ch : char; 

s : string; 

code : integer; 

BEGIN 

K := ausgeben(klnr); 

IF K = root THEN 
BEGIN 

gotoxy(5, 5); 

write ('Keine Klassenliste vorhanden!! <RTN> drücken!'); 
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readln; 

exit; 

END; 

gotoxy(l, 23); 

write('xxxxxxxxxxxxx Welche Nummer soll umgemeldet werden? : < > xxxxxxxxxxxxxxxxx 1 ); 

REPEAT 

Eingabe(s,57,23,3,0,' 1 ); 
val(s, nr, code); 

UNTIL (code = 0) and (nr > 0) and (nr <= 255); 
meldum(klnr, nr); 

K := ausgeben(klnr); 
gotoxy(l, 23); 

write('xxxxxxxxxxxxxxxxxxxxxxxxxx Weiter: <W> Menue: <M> xxxxxxxxxxxxxxxxxxxxxxxxxx'); 
REPEAT 

ch : = upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'W') or (ch = ’M'); 

IF ch = ’M' THEN exit; 

IF ch = 'W' THEN ummelden(klnr); 


PROCEDURE Klassenliste.zeiteingeben(klnr: byte); 

VAR 

S : scPtr; 

ch : char; 

K : knPtr; 

ss : string; 

FUNCTION springen: knPtr; 

VAR 

s : string; 

nr : byte; 

K : knPtr; 

code : word; 

BEGIN 

gotoxy(l, 23); 

write('xxxxxxxxxx Zu welcher Nummer soll gesprungen werden? : < > xxxxxxxxxx'); 

Eingabe(s,58,23,3,0,"); 
val(s,nr,code); 

K := root; 

WHILE K <> NIL DO 
BEGIN 

IF (K^.item^.getklnr = klnr) and (K / \item / \getnr = nr) THEN 
BEGIN 

springen := K; 
exit; 

END 

ELSE K := r.next; 

END; 

springen := K; 

END; 
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BE6IN 

K := ausgeben(klnr); { zuerst die ganze Liste ausgeben } 

K := root; 

WHILE K <> NIL DO 
BEGIN 

IF (K^.item^.getklnr = klnr) THEN 
BEGIN 

IF (K'MtenT.getang = TRUE) THEN 
BEGIN 

gotoxy(l, 23); 

write('xxxxxxxxxxxxxx Springen: <S> Weiter: <W> Tei1 genommen: <J/N> xxxxxxxxxxxxx'); 
gotoxy(K A .itenT\Xt + K A .item A .Seite, K A .itenT.z); {an die r. Pos.} 

REPEAT 

ch := Upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'S') or (ch = 'W') or (ch = 'J') or (ch = 'N'); 

IF ch = 'S' THEN 
BEGIN 

K := springen; 

IF K = NIL THEN exit; 
gotoxy(l, 23); 

write('xxxxxxxxxxxxxxxxxx Weiter: <W> Teilgenommen: <J/N> xxxxxxxxxxxxxxxxxx 1 ); 
gotoxy(K A .item A .Xt + K A .item A .Seite, K'MtenT.z); {an die r. Pos.} 

REPEAT 

ch := Upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'W') or (ch = ’J') or (ch = ’N'); 

IF ch = 1 J' THEN K^.itenT.tg; 

IF ch = 'N' THEN K A .i tem^ntg; 

K A .item A .ausgabe; K A .item / \l ieszei t; K A .itenr.ausgabe; 

END 

ELSE 

BEGIN 

IF ch = 'J‘ THEN K^.itenT.tg; 

IF ch = 1 N' THEN K A .i tenT\ntg; 

K^.itenf'.ausgabe; K^.itenTM ieszeit; K A .itenT\ausgabe; 

END; 

gotoxy (1, 23); 

write('xxxxxxxxxxxxxxxxxxxxxxxxx Weiter: <W> Menü: <M> xxxxxxxxxxxxxxxxxxxxxxxxx'); 
REPEAT 

ch := upcase(chr(LesTaste(ASCII))); 

UNTIL (ch = 'W') or (ch = ’M'); 

IF ch = ’M' THEN exit; 

END 

ELSE K A .itenT.lieszeit; 

END; 

K := K A .next; 

END; 

END; 
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FUNCTION Klassenliste.durchschnitt(klnr: byte): string; 


VAR 

K : knPtr; 
i : byte; 
sum : real; 

textl, text2 : string[2]; 

FUNCTION sekunder real; 

BEGIN 

Sekunde := trunc(K A .itenr.getlz) * 
END; 

BEGIN 

K := root; i := 0; sum := 0; 

WHILE K <> NIL DO 
BEGIN 

IF (K A .item A .getang = TRUE) and 
BEGIN 

sum := sum + Sekunde; 

IF K'MtenT.getgen = TRUE THEN 

sum := sum - bon_8; 

inc(i); 

END; 

K := K A .next; 

END; 

IF i = 0 THEN i := 1; 
sum := (sum/i)/60; 
str(trunc(sum), textl); 
str(frac(sum)*60:2:0, text2); 
durchschnitt:= concat(textl, 1 min 
END; 


{ Zähl variable } 

{ Summe } 

{ wandelt die eingetragene Laufzeit..} 
{ .. in Sekunden um } 

60 + frac(K A .itenT.getlz) * 100; 


{ Initialisierungen } 


^.item^.getklnr = klnr) THEN 
{ nur angemeldete Teilnehmer zählen } 

(Mädchen bekommen einen Bonus } 


{ im Fall des Falles } 

{ in Minuten umwandeln } 


text2, ' sec'); {als Str. ausgeben} 


{xxxxxxxxxxxxxxxxEnde der Methoden xxxxxxxxxxxxxxxxxxxxxxxxxxxxxxx} 


FUNCTION probe: byte; 

VAR 

s : string; 
klnr : longint; 
code : integer; 

BEGIN 

REPEAT 

gotoxy(15, 22); 

write('Bitte die Klassennummer eingeben : < >'); 

Eingabefs, 51,22,3,0,"); 
val(s, klnr, code); 

UNTIL (code = 0) and (klnr > 0) and (klnr <= 255); 
probe := klnr; 

END; 


PROCEDURE Menue; 
CONST 
sp = 15; 

VAR 

klnr : byte; 
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BEGIN 

gotoxy(sp, 8); 
write('Bitte wählen Sie 
gotoxy(sp, 10); 
write('<l> Datei laden'); 
gotoxy(sp,ll); 

write('<2> Datei speichern 1 ); 
gotoxy(sp,12); 

write('<3> Klassendaten eingeben 

13) ; 

Klassendaten ausgeben 

14) ; 

Daten löschen '); 

15) ; 

Ummeldungen '); 
gotoxy(sp, 16); 

write('<7> Zeit eingeben '); 
gotoxy(sp, 17); 

write('<8> Jahrgangsbesten '); 
gotoxy(sp, 18); 

write('<9> Klassenbesten '); 
gotoxy(sp, 19); 
write('<0> ENDE '); 
gotoxy(sp, 20); 
write('Ihre Wahl : < >'); 

REPEAT 

Eingabe(wähl,sp+13,20,l,0, 11 ); 
UNTIL wähl[1] in ['1*, '2', '3' a 
case wähl[1] of 
'1': BEGIN 


gotoxy(sp, 
write('<4> 
gotoxy(sp, 
write('<5> 
gotoxy(sp, 
write('<6> 


'); 

'); 


'4', '5', '6', '7', 


root := NIL; 

Einejahrgangsliste.init; 

Einejahrgangsliste.load; 

END; 

'2': IF root<>NIL THEN BEGIN 

Einejahrgangsliste.störe; 

END; 

'3': BEGIN 

klnr := probe; 

Eineklassenliste.init; 

Ei nekl assenliste.1isteanlegen(klnr); 

END; 

'4': IF root <> NIL THEN BEGIN 
klnr := probe; 

Eineklassenliste.init; 

SCR := Eineklassenliste.ausgeben(klnr); 
gotoxy(l, 23); 

write('xxxxxxx Klassendurchschnitt 

,Eineklassenliste.durchschnitt(klnr)); 
gotoxy(48, 23); 

write('Bitte <RTN> eingeben xxxxxxx'); 
readln; 

END; 

'5': IF root<>NIL THEN BEGIN 


' 8 ' 


' 9 ',' 0 ']; 
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klnr := probe; 

Eineklassenliste.init; 

Eineklassenliste.loeschen(klnr); 

END; 

'6'; IF root<>NIL THEN BEGIN 
klnr := probe; 

Eineklassenliste.init; 

Eineklassenliste.ummelden(klnr); 

END; 

'7': IF root<>NIL THEN BEGIN 
klnr := probe; 

Eineklassenliste.init; 

Eineklassenliste.zeiteingeben(klnr); 

END; 

'8': IF root<>NIL THEN BEGIN 
ClrScr; 

Einejahrgangsbestenliste.init; 

Einejahrgangsbestenliste.herstel1en; 
gotoxy(l, 23); 

write('xxxxxxxxxxxxxxxxxxxxxxxxxxx Bitte <RTN>', 

1 eingeben xxxxxxxxxxxxxxxxxxxxxxxxxxxx'); 

readln; 

END; 

'9': IF root<> NIL THEN BEGIN 
klnr := probe; 

ClrScr; 

Eineklassenbestenliste.init; 

Eineklassenbestenliste.herstellen(klnr); 
gotoxy(l, 23); 

write('xxxxxxxxxxxxxxxxxxxxxxxxxxx Bitte <RTN> 1 , 

1 eingeben xxxxxxxxxxxxxxxxxxxxxxxxxxxx'); 

readln; 

END; 

END; 

END; 


(xxxxxxxxHauptprogrammxxxxxxxxx) 

BEGIN 

Textmode(dynamisch); 
root := NIL; 

REPEAT 

ClrScr; 

Standardbild; 

menue; 

UNTIL wähl = '0'; 

ClrScr; 

END. 
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Natürlich kann ich an dieser Stelle nicht die OOP-Theorie erläutern, da 
der Rahmen des Buches damit gesprengt würde. Ich möchte Ihnen jedoch 
dringend empfehlen, an Hand der Original-Anleitung zu Turbo Pascal 5.5 
das Programm nachzuvollziehen, da diese Anleitung für mich das Beste 
zum Thema OOP ist. Zum einen haben die Autoren verstanden, wovon sie 
reden (sonst hätten sie ja auch kaum den Compiler entwickeln können), 
zum anderen ist das Werk relativ kurzgehalten, so daß man es in ein paar 
Tagen durchlesen kann. 

Nun jedoch zum Programm SCHUELER.EXE. Zur Abwechslung arbeitet es 
im dynamischen Bildschirmmodus mit 80x25 Zeichen. Wie schon oben 
erwähnt, dient es zur Erfassung von Sportwettkämpfen in Schulen, wie 
z.B. den Bundesjugendspielen. Betrachtet werden einzelne Jahrgänge (alle 
Schüler, die in der gleichen Klassenstufe sind) und die einzelnen Klassen. 
Wenn es z.B. die Klassen 8a, 8b und 8c mit jeweils 20 Schülern gibt, 
würde der Jahrgang aus drei Klassen und 60 Schülern bestehen. 

Über den Menüpunkt (T| können Schülerdaten einer Klasse eingegeben 
werden. Dazu werden Sie zunächst nach der Klassennummer befragt. 
Diese hat mit der tatsächlichen Bezeichnung nichts zu tun, sondern ist 
eine rein logische Nummer, mit der die Klassen durchnumeriert werden. 
Die erste Klasse sollte man daher mit »1«, die zweite mit »2« usw. bezeich¬ 
nen. Die einzelnen Schüler bestehen aus einer Nummer, dem Vor- und 
Nachnamen sowie einem Geschlecht, das entweder mit »m« für Mädchen 
oder mit »j« für Junge angegeben werden kann. Nach der Eingabe können 
Sie weitere Schüler eingeben ( 0 ), zurück zum Menü springen ( 0 ) oder 
abbrechen ( 0 ). Vor dem Rücksprung ins Menü kann wahlweise noch neu 
durchnumeriert werden, die Schüler werden alphabetisch sortiert. 

Über den Menüpunkt 0 können Schüler gelöscht werden, indem ihre 
Nummer eingegeben wird. Interessant wird es mit dem Menüpunkt 0: 
Hier können für die einzelnen Schüler die erreichten Laufzeiten einge¬ 
geben werden. Während unter der Tabellenspalte »T« (Teilgenommen) ein 
»J« für »Ja« erscheint, steht unter der Spalte »A« (Angekommen) ein »N« für 
»Nein« und als Zeit der indiskutabel schlechte Wert von 8 Minuten und 30 
Sekunden. Sie können nun das »N« in der Angekommen-Spalte in ein »J« 
verwandeln und die Laufzeit in die Zeit-Spalte eintragen, wobei unerreich¬ 
bar gute oder schlechte Zeiten nicht zugelassen werden. 

Nach diesen Eingaben können Sie sich über die Menüpunkte 0 und [ 9 ) 
die Bestenliste der Klasse bzw. des Jahrgangs, d.h. aller Klassen, getrennt 
nach Jungen und Mädchen ansehen. Sicherlich werden Sie einwenden, 
daß dieses Programm nicht gerade sinnvoll in der Praxis einzusetzen ist, 
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es sein denn, für Lehrer. Es stellt aber eine Anwendung dar, die für die 
OOP-Programmierung wie geschaffen ist, da man mit dem Objekt 
»Schüler« sinnvoll arbeiten kann. Zudem wird die Erstellung einer 
Baumstruktur verdeutlicht, wie sie in der Informatik eine große Rolle 
spielt (Dynamische Datenverwaltung). 
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Natürlich ist es auch möglich, den Portfolio in Turbo C zu programmieren. 
Mit Turbo C ist in diesem Fall die Version 2.0 des Compilers gemeint. Da 
auch der C-Compiler einen Umfang besitzt, der es unmöglich macht, ihn 
auf dem Portfolio selbst zum Laufen zu bringen, muß das Programm auf 
dem PC geschrieben und übersetzt werden. Auf die Unterschiede der 
Arbeitsweise der C-Funktionen auf dem PC und dem Portfolio und der 
Programmierung einer »Portfolio-üblichen« Benutzeroberfläche soll in 
diesem Kapitel anhand eines etwas größeren Beispielprogramms ein¬ 
gegangen werden. 


3.1 Vorbemerkungen 


3.1.1 Notation 

C erlaubt dem Programmierer große Freiheiten bei der Schreibweise seiner 
Programme. Wenn man will, kann ein C-Listing aussehen, als ob jemand 
»ein Gürteltier über die Tastatur gewälzt hätte«. Speziell in der Anfangszeit 
war C eine Sprache der Unix-Gurus, die sich nicht gern in die Karten 
sehen lassen wollten und deswegen ihre Programme sehr kryptisch 
geschrieben hatten. Nun ist dieses aber für ein Buch wie das vorliegende 
wenig hilfreich. Damit Sie die Listings auch verstehen können, wurde 
weitestgehend die Notation von Kemighan und Ritchie, den »C-Erfindem«, 
verwendet. Aus Platzgründen mußten aber öfter mehrere Befehle auf eine 
Zeile geschrieben werden. Wir hoffen aber, daß die umfangreichen 
Kommentarzeilen Ihnen helfen, die Vorgehensweise zu verstehen. 

Ungewöhnlich kann Ihnen die Bezeichnung der Variablen Vorkommen. Es 
steckt aber ein Sinn dahinter, der gleich erläutert wird. Die Variablen¬ 
bezeichnung beginnt grundsätzlich mit einem Großbuchstaben oder einer 
Zahl. Vor dieser Bezeichnung steht ein Präfix aus Kleinbuchstaben, die 
den Typ der Variablen spezifizieren. In der folgenden Tabelle sind alle 
Möglichkeiten aufgeführt. 
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Buchstabe 

Bedeutung 

Erklärung 

a 

array 

bezeichnet ein Feld des folgenden Variablentyps 

b 

BYTE 

vorzeichenlose Variable mit 1 Byte Länge 

c 

CHAR 

(unsigned char) 

vorzeichenbehaftete Variable mit 1 Byte Länge 

f 

FLOAT 

vorzeichenbehaftete Fließkommavariable 

i 

INT 

vorzeichenbehaftete Variable mit 2 Byte Länge 

1 

LONG 

(short) 

vorzeichenbehaftete Variable mit 4 Byte Länge 

P 

pointer 

Zeiger auf den folgenden Variablentyp 


Finden Sie also im Quelltext eine Variable mit Namen aplPointerArray, so 
bezeichnet diese ein Feld mit Zeigern auf LONG-Variablen. Deklariert 
wurde diese Variable beispielsweise mit 

LONG *ap1PointerArray[20]; 

Die beliebten Zeiger auf CHAR-Variablen werden dann beispielsweise als 
CHAR *pcPointer; 
und INT-Variablen als 

INT iTest; 

deklariert. 

Die Variablentypen wie BYTE , LONG oder INT werden immer groß¬ 
geschrieben. Der Grund ist eine möglichst maschinenunabhängige 
Programmierung. Da speziell der Variablentyp INT eine maschinenab¬ 
hängige Länge besitzt, wird im Beispielprogramm die Datei TYPEDEF.H 
eingebunden, in der mittels #de/ine-AnWeisungen neue Variablentypen 
definiert werden. Um ein Programm von einer zur anderen Maschine zu 
portieren, braucht in bezug auf die Variablen nichts im Programm ge¬ 
ändert werden. Anpassungen müssen nur innerhalb der Datei TYPEDEF.H 
vorgenommen werden. 
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Bei den Compiler-Einstellungen gibt es nur wenig zu beachten. Es finden 
sich nur im Optionen-Menü einige Punkte, die speziell für die Erzeugung 
von Portfolio-Programmen gesetzt werden müssen. 

Compiler/Code generation 

Hier darf der Umschalter nur auf 8088/86 stehen. Da der Portfolio nur 
einen 80C88-Prozessor enthält, würde sonst teilweise Code erzeugt 
werden, der nicht ausgeführt werden kann. 

Compiler/Floating point 

Da es bisher keine Möglichkeit gibt, den Portfolio mit einem numerischen 
Koprozessor aufzurüsten, sind bei diesem Punkt nur Emulation oder None 
sinnvoll. 

Compiler/Alignment 

Beide Einstellungen liefern fehlerfreie Programme, doch BYTE bringt Ihnen 
einen kürzeren Programmcode, da die Variablen nicht auf gerade Adressen 
ausgerichtet werden, was den ohnehin knappen Speicherplatz des Port¬ 
folio nicht mehr als nötig verschwendet. 

Compiler/Merge duplicate strings 

Auch mit dieser Option läßt sich Speicherplatz sparen, in dem mehrfach 
vorkommende Strings nur einmal abgespeichert werden. 

Compiler/Standard stack frame 
Compiler/Test stack overflow 
Compiler/Line numbers 
Compiler/OBJ Debug information 

Alle diese Optionen verlängern ein Programm, sind aber sehr hilfreich 
beim Debuggen. Schalten Sie sie also erst ab, wenn sich keine Fehler 
mehr im Programm befinden. 

Linker/Graphics library 

Es ist überflüssig, den Linker auch innerhalb der Grafikbibliothek nach 
Funktionen suchen zu lassen, da die Grafik des Portfolio nicht von Turbo 
C unterstützt wird. 
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3.2 Das Beispielprogramm DISVER.EXE 

Für die Demonstration der Programmierung des Portfolio dient im weiteren 
das Beispielprogramm DISVER.EXE. Es stellt ein Hilfsmittel zur Verwal¬ 
tung der Dateien auf den einzelnen RAM-Karten dar und schafft einen 
Überblick, welche Dateien auf welcher RAM-Karte zu finden sind. 


3.2.1 Die Bedienung des Beispielprogramms 

Nach dem Starten meldet sich das Programm mit dem Dateibildschirm, in 
dem später die gespeicherten Dateien angezeigt werden. Vorab ist gleich 
das Informationsfenster geöffnet, welches einiges über das Programm ver¬ 
rät. Durch Drücken einer Taste schließt das Fenster wieder und Sie kön¬ 
nen mit dem Programm arbeiten. 



R 


DISVER Portfolio 1.0 
von Michael Schuschk 
(C) 1990 Markt & Technik AG 

0 Files mit 0 kB gespeichert. 

Es ist noch Platz für 500 Files. 

|Fl—Menü 


Bild 3.1 Beginn des 
Programms 


Dateibildschirm 

In ihm werden die gespeicherten Dateien angezeigt. Durch die Länge des 
Portfolio-Bildschirms ist die Anzeige auf acht Dateieinträge gleichzeitig 
begrenzt. Von jeder Datei werden der Name der Datei mit längstens zwölf 
Zeichen, die Länge in Byte mit maximal sechs Ziffern und der Name der 
Karte, auf der sich die Datei befindet, mit bis zu zehn Zeichen. Mit den 
Cursor-Tasten kann die Bildschirmanzeige um eine Datei nach oben bzw. 
unten gerollt werden. Um acht Dateien, also einen ganzen Bildschirm, 
können Sie mit den Tasten | Bi 1 dt 1 und [Bildl] blättern. Die Tasten [ Posi| 
bzw. | Ende | bringen Sie an den Anfang bzw. das Ende der Dateiliste. Natür¬ 
lich haben diese Tasten nur eine Funktion, wenn mehr als acht Dateien 
gespeichert sind. 
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BACKUP.EXE 

j= Hauptmenü =; 


DISVER 

CRTDEMO.EXE 

Projekt 



DISVER.DIS 

Sortieren 


Files: 

NOATARI.EXE 

Editieren 


6 

PORTCAPT.EX 

Drucken 


Bytes: 

KOPF.C 

Optionen 


744 



Fl-Menü 


Bild 3.2: Das 
Dateimenü 


Die verschiedenen Funktionen des Programms erreichen Sie über das 
Dateimenü, das »Portfolio-üblich« über die Funktionstaste (TT) aufgerufen 
wird. Es enthält die Menüpunkte: 

- Projekt 

- Sortieren 

- Editieren 

- Drucken 

- Optionen 

Auch die Auswahl der Menüpunkte geschieht so, wie Sie es bei den ein¬ 
gebauten Programmen gewohnt sind. Mit [ Return 1 wird derjenige Punkt 
ausgewählt, auf dem der Blockcursor steht. Der Cursor kann mit Hilfe der 
Tasten (T| und (T) in der Menüliste auf und ab bewegt werden. Alternativ 
kann durch Eingabe des Anfangsbuchstabens ein Menüpunkt direkt 
angewählt werden. 

Die Menüpunkte Projekt , Sortieren , Editieren und Optionen führen zu 
weiteren Untermenüs, die im folgenden erklärt sind. Nur der Punkt 
DRUCKEN hat eine direkte Aktion zur Folge. 

Drucken 

Es wird die komplette Dateiliste zweispaltig ausgedruckt, dabei sind die 
Dateien in der gleichen Reihenfolge sortiert wie auf dem Bildschirm. Vor¬ 
aussetzung ist natürlich eine parallele Schnittstelle mit einem angeschlos¬ 
senen Drucker. Um das Programm nicht unnötig zu verlängern, wird nicht 
überprüft, ob ein Drucker angeschlossen und auch druckbereit ist. Falls 
Ihnen das nicht gefällt, können Sie leicht über den Aufruf des Interrupt 
17hex direkt mit dem Drucker kommunizieren und seinen Status ab- 
fragen. An den Drucker selbst werden keine besonderen Anforderungen 
gestellt, er muß nur pro Zeile 80 Zeichen drucken können. Das Programm 
benutzt auch nur den Steuercode für diese Einstellung, so daß eventuelle 
Schriftarteinstellungen Ihrerseits weiterhin gültig bleiben. Als Kopfzeile 
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werden Druckdatum und aktuelle Seite, als Fußzeile die Anzahl der 
gespeicherten Dateien sowie deren Gesamtumfang ausgegeben. 


Projektmenü 


BACKUP.EXE 

- Projekt - 


DISVER 

CRTDEMO.EX 

Neu 



DISVER.DIS 

Laden 


Files: 

NOATARI.EX 

Speichern 


6 

PORTCAPT.E 

Karte ei niesen 


Bytes: 

KOPF.C 

Über 


744 


Ende 






Fl—Menü 


Bild 3.3: Das 
Projektmenü 


Dieses besteht aus den Menüpunkten: 

-Neu 

- Laden 

- Speichern 

- Karte einiesen 

- Über 
-Ende 

Der Punkt Neu dient zum Löschen aller im Speicher befindlichen Dateien. 
Mit Laden werden bereits vorher eingelesene und abgespeicherte Dateien 
wieder geladen und an das Ende der bereits im Speicher befindlichen 
Dateiliste angehängt. Zur Auswahl des Dateinamens erscheint ein neues 
Fenster, in dem der Dateiname und der Pfad zur Datei editiert werden 
kann. 


BACKUP.EXE 7904 disver | DISVER 


DI 

DISVER-Daten lesen 


NO 

Pfad: <A: 

> 

PO 

i^n 

Dateiname: <DISVER.DIS 

> 


Fl—Menü 


Bild 3.4: Abfrage 
des Dateinamens 
beim Laden 


Speichern ist das Gegenstück zum vorherigen Menüpunkt. Hier kann die 
Dateiliste gespeichert werden. Karte einiesen springt zum Directory-Bild¬ 
schirm, der den kompletten Verzeichnis-Baum des eingestellten Laufwerks 
einliest. Informationen über das Programm zeigt der Punkt Über. Er öffnet 
das Informationsfenster, das dem Benutzer mitteilt, welche Version des 
Programms vorliegt, wer das Programm erstellt hat, wie viele Dateien im 
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Speicher sind, wie lang alle Dateien zusammen sind und wie viele Dateien 
noch in die Dateiliste aufgenommen werden können. Durch Drücken einer 
Taste wird das Fenster wieder geschlossen. Da jedes Programm ein Ende 
haben muß, finden Sie es im Menüpunkt Ende. Sollte die Dateiliste vorher 
noch nicht gespeichert sein, werden Sie dazu noch aufgefordert. 


Sortiermenü 


BACKUP.EXE 

7904 disver 

DISVER 

CRTDEMO.EXE 

= Sortieren = 



DISVER.DIS 

nach Namen 


Files: 

NOATARI.EXE 

nach Bytes 


6 

PORTCAPT.EX 
KOPF.C 

nach Karte 


Bytes: 

744 

Fl-Menü 


Bild 3.5: Das 
Sortiermenü 


Je nach gewähltem Menüpunkt 

- nach Namen 

- nach Bytes 

- nach Karte 

wird die Dateiliste nach Dateinamen, der Länge in Byte oder dem Namen 
der Karte sortiert. Bedingt durch den verwendeten Algorithmus Heapsort 
kann der Vorgang einige Zeit in Anspruch nehmen. 

Editiermenü 


BACKUP.EXE 

i= Editieren =; 


DISVER 

CRTDEMO.EX 

Hauptprogramm 



DISVER.DIS 

Unterprogramm 


Files: 

NOATARI.EX 

Editieren 


6 

PORTCAPT.E 

Neues File 


Bytes: 

KOPF.C 

Löschen 


744 



Fl-Menü 


Bild 3.6: Das 
Editiermenü 


Für das Ändern der Einträge in der Dateiliste stehen folgende Menüpunkte 
zur Verfügung: 

- Hauptprogramm 

- Unterprogramm 

- Editieren 


271 



















Kapitel 3_ 

- Neues File 

- Löschen 

Für fast alle Funktionen dieses Menüs ist es notwendig, eine oder mehrere 
Dateien markiert zu haben. Sie bewegen den Cursor auf die gewünschte 
Datei und drücken die Leertaste. Daraufhin ist diese Datei markiert, als 
optische Kennzeichnung erscheint links neben dem Dateinamen ein nach 
rechts gerichtetes Dreieck (►, ASCII-Code 16) in der Spalte, in der sich 
auch der Cursor befindet. Drücken Sie die Leertaste, wenn der Cursor in 
einer Zeile mit einer bereits markierten Datei steht: die Markierung wird 
wieder gelöscht. 

Hauptprogramm 

Die markierte Datei wird als Hauptprogramm für eine spätere Addition 
markiert. Damit Sie diese Datei auch wiederfinden, wird sie statt mit 
dem Dreieck mit dem französischen Anführungsstrich gekennzeichnet 
(», ASCII-Code 175). Sollten versehentlich mehrere Dateien markiert sein, 
wird nur die erste Datei markiert, und alle anderen Markierungen werden 
gelöscht. 

Unterprogramm 

Hiermit wird die Dateilänge, einer oder mehrerer markierter Dateien, zu 
der Dateilänge einer vorher als Hauptprogramm markierten Datei addiert. 
Die Unterprogrammdateien werden im Anschluß gelöscht. 

Editieren 


BACKUP.EXE 7904 disver | DISVER 


»CR 

DI 

►NO 

PO 

KO 


File editieren 
Name Bytes Karte 


N0ATARI.EXE 780 disver 


s: 


s: 

44 


|Fl-Menü 


Bild 3.7: Das 
Editierfenster der 
Dateiliste 


Dieser Menüpunkt erlaubt Ihnen, die einzelnen Dateien in der Liste zu 
editieren. Wenn Sie diesen Punkt anwählen, erscheint ein neues Fenster 
mit der ersten markierten Datei. Sie können nun nacheinander den 
Dateinamen, die Dateilänge und den Kartennamen ändern. Durch Bestä¬ 
tigen mit | Return I im Feld des Kartennamens wird, falls vorhanden, die 
nächste markierte Datei zum Editieren angezeigt. 
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Neues File 

Neue Dateien können nicht nur von der Karte eingelesen, sondern auch 
manuell eingegeben werden. Es erscheint das gleiche Fenster wie beim 
Menüpunkt Editieren , allerdings mit leeren Eingabefeldem. Wenn Sie die 
Daten der neuen Datei eingegeben haben, wird sie an das Ende der Datei¬ 
liste gehängt. 

Löschen 

Sie löschen mit diesem Menüpunkt alle markierten Dateien. Achtung! 
Diese Operation läßt sich nicht rückgängig machen! Die gelöschten 
Dateien werden nicht zwischengepuffert! 

Optionsmenü 


BACKUP.EXE 

7904 disver 

DISVER 

»CRTDEMO.EX 

1 = Optionen = 



DISVER.DIS 

VLesen von A: 


Files: 

►NOATARI.EX 

Lesen von B: 


6 

PORTCAPT.E 

Lesen von C: 


Bytes: 

KOPF.C 



744 



Fl-Menü 


Bild 3.8: Das 
Optionsmenü 


Mit Hilfe der Menüpunkte 

- Lesen von A: 

- Lesen von B: 

- Lesen von C: 

können Sie auswählen, von welchem Laufwerk gelesen wird. Auch hier 
wird nicht auf das Vorhandensein der Laufwerke geprüft, speziell trifft das 
für die Laufwerke A: und B: zu. 

Directory-Bildschirm 

Was nützt ein Verwaltungsprogramm, wenn man den Directoiy-Inhalt 
nicht lesen kann? Nachdem Sie aus dem Projektmenü den Punkt Karte 
einiesen gewählt haben, wird der Directory-Bildschirm aufgebaut und das 
komplette Inhaltsverzeichnis der Karte im gewählten Laufwerk eingelesen. 
Anschließend wird der Name der Karte angezeigt, der auch editiert werden 
kann. Danach erscheint die Liste der Directory-Einträge, und Sie können 
mit der Bearbeitung beginnen. Anhand des folgenden Bilds soll die Anzeige 
der Directory-Liste erklärt werden. 
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Level: 0 


(H)auptprg. 

(U)nterprg. 

Dir: A: 


(Ü)bernehmen 

(E)ditieren 

- BACKUP.EXE 

7904 

(A)Ile 

- CRTDEMO.EXE 

13776 

(S)torno 

- DISVER.DIS 

3893 

(N)ächste 

- NOATARI.EXE 

780 

(B)eenden 


Bild 3.9: Der 
Directory-Bildschirm 


Das komplette Directory wird ebenenweise eingelesen. Das Root- oder 
Basisverzeichnis gilt als Level 0, die darin enthaltenen Unterverzeichnisse 
als Level 1, die Unterverzeichnisse innerhalb der Verzeichnisse von Level 1 
als Level 2 und so weiter. Zu Beginn jeder Ebene wird als Markierung ein 
Trennstrich und in der nächsten Zeile die Nummer der Ebene eingefügt. 
Durch eine Leerzeile getrennt folgt der Name des Verzeichnisses und sein 
Inhalt mit den Dateien und Unterverzeichnissen. Bei einer Datei wird der 
Name mit maximal zwölf Zeichen und die Dateilänge mit bis zu sechs Zif¬ 
fern angezeigt. Unterverzeichnisse sind durch (DIR) im Feld für die Datei¬ 
länge gekennzeichnet. Der Inhalt dieses Unterverzeichnisses findet sich 
unter dem Verzeichnisnamen in der nächsten Ebene. 

Directory-Funktionen 

Zur Bearbeitung dieser Liste stehen folgende Funktionen zur Verfügung: 

- Hauptprogramm 

- Unterprogramm 

- Übernehmen 

- Editieren 
-Alle 

- Storno 

- Nächste 

- Beenden 

Wählen Sie eine der Funktionen durch Drücken des eingeklammerten 
Buchstabens an. Wie beim Editiermenü des Dateibildschirms müssen 
auch bei den meisten der obigen Funktionen einer oder mehrere Einträge 
der Liste markiert sein. Die Markierung geschieht, genau wie vorher, 
durch Drücken der Leertaste, wenn der Cursor in der gewünschten Zeile 
steht. Auch hier wird die Markierung optisch dadurch gekennzeichnet, 
daß in der ersten Spalte der Zeile der Minusstrich durch ein nach rechts 
zeigendes Dreieck (ASCII-Code 16) ersetzt wird. Eine Besonderheit ist das 
Markieren der Directory-Überschrift. Dies hat die Markierung des kom¬ 
pletten Inhalts des Verzeichnisses zur Folge. 
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Die Funktionen Hauptprogramm und Unterprogramm haben die gleiche 
Wirkung wie im Dateibildschirm. Durch Übernehmen werden die markier¬ 
ten Einträge in die Dateiliste übernommen und in der Directory-Liste 
gelöscht. Bei Editieren erscheint ein ähnliches Fenster wie zuvor, das das 
Ändern des Dateinamens ermöglicht. 





(H)auptprg. 

Level: 0 



(U)nterprg. 





ernehmen 

Dir: A: 

Neuen 

Namen eingeben 

itieren 

» BACKUP. 

Name: 

DISVER.DIS 


le 

- CRTDEM0 




orno 

► DISVER.DIS 

3893 

(N)ächste 

- NOATARI. 

.EXE 

780 

(B)eenden 


Bild 3.10: Das 
Editierfenster im 
Directory- Bildschirm 


Der Punkt Alle markiert alle Einträge der Directory-Liste. Das Aufheben 
aller Markierungen ist durch den Punkt Storno möglich. Nächste liest das 
komplette Verzeichnis der nächsten Karte ein. Haben Sie alle Karten ein¬ 
gelesen, kehren Sie mit dem Punkt Beenden zum Dateibildschirm zurück. 
Die neuen Einträge wurden an das Ende der Dateiliste gehängt. 


3.2.2 Das Listing des Beispielprogramms 

Im folgenden finden Sie das recht umfangreiche Listing. Wie schon zu 
Beginn gesagt, mußten aus Platzgründen im Listing Leerzeilen heraus¬ 
genommen und mehrere Befehle auf eine Zeile geschrieben werden. 


/* - DISVER PORTFOLIO 

* 


* BESCHREIBUNG: DISVER PORTFOLIO stellt ein universelles 

* Hilfsmittel zum Verwalten der Portfol io-RAM- 

* Karten. 


* BEMERKUNGEN: 


* ÄNDERUNGEN: 


DISVER PORTFOLIO ist eine abgemagerte Version 
der Programme DISVER AMIGA und DISVER PC, die 
auf den jeweiligen Rechnern auch die Verwaltung 
der Disketteninhalte erleichtern. 

Version 1.0 90/08/07 schuschk 


* INCLUDE-DATEIEN: 
*/ 

#include <alloc.h> 
#include <bios.h> 
#include <mem.h> 
#include <io.h> 
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#include <stdlib.h> 
#include <dir.h> 
#include <stdio.h> 
#include <conio.h> 
#include <dos.h> 
#include <fcntl.h> 
#include <string.h> 
#include <time.h> 
#include "typedef.h" 
/* 


* DEFINES: 
*/ 


/* — globale Defines 
/*#define DEBUG*/ 
Idefine MAXFILES 

500 

Idefine MAXDIRS 

200 

#define MAXDIRSTACKS 

50 

#define FILES 

0 

#define DIR 

1 

#define DIRSTACK 

2 

/* — Defines für den 

File-Requester - 

#define MO LESEN 

0 

#define MOJCHREIBEN 

1 

/* — Defines für die 

Scroll-Routinen 

#define HOME 

0 

#define PAGEUP 

-8 

Idefine UP 

-1 

#define DOWN 

1 

#define PAGEDOWN 

8 

#define END 

999 


* VARIABLEN: 

*/ 

/* - Menü-Definitionen - */ 

static CHAR *MainMenu[] = { "psedo", 

" Hauptmenü ", "Projekt", "Sortieren", "Editieren", "Drucken 
"Optionen"}; 

static CHAR *ProjectMenu[] = { "nlsküe", 

" Projekt ", "Neu", "Laden", "Speichern", "Karte ei niesen", 
"Über", "Ende"}; 

static CHAR *SortMenu[] = { "nbk", 

" Sortieren ", "nach Namen", "nach Bytes", "nach Karte"}; 
static CHAR *EditMenu[] = { "huenl", 

" Editieren ", "Hauptprogramm", "Unterprogramm", "Editieren" 
"Neues File", "Löschen"}; 
static CHAR *OptionsMenu[] = { "abc", 

" Optionen ", "VLesen von A:", " Lesen von B:", 

" Lesen von C:"}; 

/* — Variable für die Statusmeldungen - */ 

CHAR *PrintAllMsg = "Alle Daten werden gedruckt...", 
*DataLoadMsg = "Daten werden geladen...", 

*DataSaveMsg = "Daten werden gespeichert...", 

*SortMsg = "Sortiervorgang läuft...". 
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CHAR 


*DirReadMsg = "Directory wird eingelesen..."; 
*pcStatusWinPtr; 


/* — Variable für die Fehlermeldungen - */ 


CHAR *DirErr 

*NoPlaceErr 

*NoFileErr 

*NotADisverFileErr = 
*FileNotOpenErr 
*FileNotSavedErr 
*DriveNotReadyErr 
*NoFileClickedErr 
*NoMemoryErr 
*DiskNotReadableErr = 
*PrinterNotReadyErr = 


! Directory existiert nicht !!", 

! Kein Platz für mehr Einträge !!", 

! Datei nicht vorhanden !!", 

! Keine DISVER-Datei !!", 

! Kann Datei nicht öffnen !!", 

! Kann Daten nicht schreiben !!", 

! Keine Karte eingesteckt !!", 

! Kein File markiert !!", 

! Kein Speicher mehr frei !!", 

! Karte kann nicht gelesen werden !!" 
! Drucker nicht ansprechbar !!"; 


/* — globale Variable - */ 

/* Struktur der File-Liste */ 
struct FileEntries { 

CHAR acName[13]; /* Name */ 

LONG 1 Bytes; /* Länge in Bytes */ 

CHAR cSelect, /* Selektierung */ 

acDisk[11]; /* Karte, auf der sich das File befindet */ 

}; 

struct FileEntries *Fi1e[MAXFILES]; 

/* Struktur der Directory-Liste */ 
struct DirEntries { 

CHAR acName[28]; /* Name des Directory-Eintrags */ 

LONG 1 Bytes; /* Länge in Bytes */ 

CHAR cSelect; /* Markierungsflag */ 

}; 

struct DirEntries *Dir[200]; 

/* Struktur der Liste des Directory-Stapels */ 
struct DirStackEntries { 

CHAR acName[128]; /* Pfad der Directory */ 

INT iLevel; /* Grad der Verschachtelung */ 

}; 

struct DirStackEntries *DirStack[50]; 


BYTE 

bModify = 0, 

/* 

Änderungen-Flag */ 


bEnde = 0, 

/* 

Ende-Flag im File-Fenster */ 


bEndel, bEnde2; 

/* 

Ende-Flags im Disk-Fenster */ 

CHAR 

acDiskName[13], 

/* 

Name der eingelesenen Karte */ 


acDrive[4] - "A:\\" 

9 

/* LW, dessen Dir. gelesen wird */ 


acDirName[31]; 

/* 

Name des einzulesenden Verz. */ 

INT 

iFilesTop = -1, 

/* 

ob. Grenze der File-Einträge */ 


iDirTop = -1, 

/* 

obere Grenze der Directory-Eintr. * 


iDirStackTop = -1, 

/* 

obere Grenze der Dir.stapel-Eintr. 


iDirPtr = 0, 

/* 

Erster angezeigter Dir-Eintrag */ 


iDirStackAnz = 0, 

/* 

Anzahl Directories im Stapel */ 


iDirStackPtr = 0, 

/* 

Zeiger auf einzulesende Directory * 


iDirAnz = -0, 

/* 

Anzahl eingel. Directory-Einträge * 


iLevel = 0, 

/* 

aktuelle Verschachtelungsebene */ 


iFileAnz = -1, 

/* 

Anzahl gespeicherter Files */ 


iFilePtr, 

/* 

Nummer des ersten angez. Files */ 
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iHauptPrgPtr = -1, /* Nummer der markierten Hauptprg. */ 

iDirCursorPos = 0, /* Cursor-Position im Dir-Fenster */ 

iFileCursorPos = 0; /* Cursor-Position im File-Fenster */ 
LONG lHauptPrgßytes; /* Bytesumme des Hauptprogrammes */ 

union REGS Regs; /* Registersatz */ 

/* - */ 

/* — Fensterhintergrund retten - */ 

CHAR *StoreWindow(iLeft, iTop, iWidth, iLength) 

INT iLeft, iTop, /* XY-Koordinaten der ob. linken Ecke */ 

iWidth, iLength; /* Breite und Höhe des Fensters */ 

{ 

CHAR *pcPtr, *pcBufPtr; /* Zeiger auf Fensterpuffer */ 

CHAR far *pcScrPtr; /* Zeiger in Bildschirmsp. */ 

INT 1, j, /* Zähler */ 

iSize; /* Größe des Puffers */ 

pcPtr = NULL; 


/* Größe des Bereiches, dabei 4 Bytes für Koordinaten */ 
iSize = 4 + (2 * iLength * iWidth); 

/* Puffer belegen und Zeiger retten */ 
pcPtr = malloc(iSize); 
pcBufPtr = pcPtr; 

/* Koordinaten in den Puffer bringen */ 

*pcBufPtr++ = (CHAR)iLeft; *pcBufPtr++ = (CHAR)iTop; 
*pcBufPtr++ = (CHAR)iWidth; *pcBufPtr++ = (CHAR)iLength; 
/* Fensterinhalt sichern */ 


for(i = 0; i < iLength; i++){ 

pcScrPtr = MK_FP(0xB000, ((iTop + i) * 160) + (iLeft * 2)); 
for(j = 0; j < (2 * iWidth); j++) *pcBufPtr++ = *pcScrPtr++; 

} 

return(pcPtr); 

} 

/* — Fenster schließen - */ 

void CloseWindow(pcPtr) 

CHAR *pcPtr; /* Zeiger auf Fensterpuffer */ 

{ 


CHAR *pcBufPtr, 
cLeft, cTop, 
cWidth, cLength, 
i> j; 

CHAR far *pcScrPtr; 


/* Zeiger in Fensterpuffer */ 

/* linke obere Ecke des Fensters */ 
/* Breite und Länge des Fensters */ 
/* Zähler */ 

/* Zeiger in Bildschirmspeicher */ 


/* Pufferzeiger retten */ 
pcBufPtr = pcPtr; 

/* Koordinaten aus dem Puffer holen */ 
cLeft = *pcBufPtr++; cTop = *pcBufPtr++; 
cWidth = *pcBufPtr++; cLength = *pcBufPtr++; 

/* Fensterinhalt zurückschreiben */ 
for(i = 0; i < cLength; i++){ 

pcScrPtr = MK_FP(0xB000, ((cTop + i) * 160) + (cLeft * 2)); 
for(j = 0; j < (2 * cWidth); j++) *pcScrPtr++ = *pcBufPtr++; 

} 

/* Pufferspeicher wieder frei geben */ 
free(pcPtr); 
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/* Bildschirm refreshen */ 
#ifndef DEBUG 


Regs.x.ax = 0x1200; 
int86(97, &Regs, &Regs); 
#endif 

return; 


} 

/* — Rechteckigen Bildschirmbereich löschen - */ 

void ClearArea(iLeft, iTop, iWidth, iLength) 

INT iLeft, iTop, /* linke obere Ecke des Bereiches */ 

iWidth, iLength; /* Breite und Länge (Höhe) */ 


INT far *piPtr; /* Zeiger in Bildschirmspeicher */ 

INT i, j; /* Zähler */ 


/* Bereich löschen */ 
for(i = 0; i < iLength; i++){ 

piPtr = (INT far *)MK_FP(0xB000, ((iTop+i)*160)+(iLeft*2)); 
for(j = 0; j < iWidth; j++) *piPtr++ = 0x0720; 

} 

/* Bildschirm refreshen */ 

#ifndef DEBUG 

Regs.x.ax = 0x1200; 
int86(97, &Regs, &Regs); 

#endif 

return; 

} 

/* — Doppelten Rahmen zeichnen - */ 

void DrawBorder(iLeft, iTop, iWidth, iLength) 

INT iLeft, iTop, /* linke obere Ecke des Rahmens */ 

iWidth, iLength; /* Breite und Höhe des Rahmens */ 


INT far *piPtr; /* Zeiger in Bildschirmspeicher */ 

INT i; /* Zähler */ 


piPtr = (INT far *)MK_FP(0xB000, (iTop * 160) + (iLeft * 2)); 
*piPtr++ = 0x07c9; 

for(i = 0; i <= (iWidth-3); i++) *piPtr++ = 0x07cd; 

*piPtr = 0x07bb; piPtr += 80; 

for(i = 0; i <= (iLength—3); i++, piPtr += 80) *piPtr = 0x07ba; 
*piPtr- = 0x07bc; 

for(i = 0; i <= (iWidth-3); i++) *piPtr- = 0x07cd; 

*piPtr = 0x07c8; piPtr -= 80; 

for(i = 0; i <= (iLength-3); i++, piPtr -= 80) *piPtr = 0x07ba; 
/* Bildschirm refreshen */ 

#ifndef DEBUG 

Regs.x.ax = 0x1200; 
int86(97, &Regs, &Regs); 

#endif 

return; 

} 

/* — Fenster öffnen - */ 

CHAR *0penWindow(iLeft, iTop, iWidth, iLength) 

INT iLeft, iTop, /* linke obere Ecke des Fensters */ 






Kapitel 3 


iWidth, iLength; /* Breite und Höhe des Fensters */ 

{ 

CHAR *pcPtr; 

/* Hintergrund retten */ 

pcPtr = StoreWindow(iLeft, iTop, iWidth, iLength); 

if(pcPtr != NULL){ 

/* Hintergrund löschen */ 

ClearArea(iLeft, iTop, iWidth, iLength); 

/* Rahmen zeichnen */ 

DrawBorder(iLeft, iTop, iWidth, iLength); 

} 

return(pcPtr); 

) 

/* — Taste holen und ASCII- sowie - 

— erweiterten Tastaturcode zurückgeben - */ 

void GetKey(pcKey, pcKeyExt) 

CHAR *pcKey, /* ASCII-Code */ 

*pcKeyExt; /* erweiterter Tastaturcode */ 

{ 

Regs.h.ah = 0x0; 

int86(0xl6, &Regs, &Regs); 

*pcKey = Regs.h.al; *pcKeyExt = Regs.h.ah; 


return; 

} 


/* - 

— Eingabe-Routine - 

- */ 

INT 

Input(iXPos, iYPos 

, iWidth, pcString) 

INT 

iXPos, iYPos, 

/* linke Ecke des Eingabefeldes */ 


iWidth; 

/* Breite des Eingabefeldes */ 

CHAR *pcString; 

/ 

/* Zeiger auf String (Vorgabe möglich) */ 


BYTE b'Ende; 

/* Ende-Flag */ 


INT iEscape, 

/* Abbruch-Flag */ 


iRelCursor, 

/* Cursor-Position im String */ 


iLength; 

/* aktuelle Länge der Eingabe */ 


CHAR *pcText, 

/* Eingabepuffer */ 


*pcPreset, 

/* Vorgabepuffer */ 


cKey, cKeyExt; 

/* ASCII- und erweiterter Tastencode */ 


/* Pufferspeicher für die Vorgabe und die Eingabe reservieren */ 
pcText = mal 1oc(iWidth + 2); pcPreset = mal 1oc(iWidth + 2); 

/* Vorgabe retten */ 
strcpy(pcPreset, pcString); 

/* Cursor auf Koordinaten setzen */ 
iRelCursor = 1; 

gotoxy(iXPos + iRelCursor - 1, iYPos); 

/* Vorgabe in Eingabepuffer kopieren */ 
strcpy(pcText, pcString); strcat(pcText, " "); 

/* Platz frei machen */ 
printf ("%*s", iWidth + 1, " "); 

/* Eingabeschleife */ 
bEnde = 0; iEscape = 0; 
do{ 

iLength = strlen(pcText); 
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/* aktuellen Stand ausgeben */ 

gotoxy(iXPos, iYPos); printf("%-*s", iWidth, pcText); 
gotoxy(iXPos + iRelCursor - 1, iYPos); 

/* Taste holen *1 
GetKey(&cKey, &cKeyExt); 

/* Auswerten */ 
if(cKey == 0){ 

/* Sondertaste gedrückt */ 
switch(cKeyExt){ 

/* Cursor links */ 

case 75: if(iRelCursor > 1) iRelCursor-; break; 

/* Cursor rechts */ 

case 77: if(iRelCursor < iLength) iRelCursor++; 

break; 

/* Home oder Posl */ 

case 71: iRelCursor = 1; break; 

/* Ende */ 

case 79: iRelCursor = iLength; break; 

/* Delete oder Entf */ 
case 83: if(iLength > 1){ 

memcpy(pcText + iRelCursor - 1, 
pcText + iRelCursor, 
iLength - iRelCursor + 1); 

} 

break; 

default: break; 

} 

} 

el se{ 

/* ASCII-Taste gedrückt */ 
switch(cKey){ 

/* Escape */ 

case 27: strcpy(pcText, pcPreset); 

bEnde - 1; iEscape = 1; 
break; 

/* Backspace */ 

case 8: if((iLength > l)&&(iRelCursor > 1)){ 

memcpy(pcText + iRelCursor - 2, 
pcText + iRelCursor - 1, 
iLength - iRelCursor + 2); 
iRelCursor-; 

) 

break; 

/* Return */ 

case 13: *(pcText + strlen(pcText) - 1) = 0; 

bEnde = 1; break; 

/* normales Textzeichen */ 

default: if ((cKey > 31) && (iLength <= iWidth)){ 

memmove(pcText + iRelCursor, 
pcText + iRelCursor - 1, 
iLength - iRelCursor + 2); 
*(pcText*+ iRelCursor - 1) = cKey; 
iRelCursor++; 


} 



} 


break; 
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} 

}whi1e(bEnde == 0); 

/* Ergebnis anzeigen */ 

gotoxy(iXPos, iYPos); printf("%-*s", iWidth, pcText); 

/* Eingabepuffer kopieren */ 
strcpy(pcString, pcText); 

/* Speicher wieder frei geben */ 
free(pcPreset); free(pcText); 
return(iEscape); 

} 

/* - Fehlermeldung ausgeben - */ 

void Error(iErrNum) 

INT iErrNum; /* Fehlernummer */ 

{ 

CHAR *pcErrMsg, /* Zeiger auf die Fehlermeldung */ 

*pcWinPtr; /* Zeiger auf Fensterpuffer */ 

INT iLeft, iTop, /* Dimensionen des Fensters */ 

iWidth, iLength; 


/* Fehlermeldung holen */ 
switch(iErrNum){ 

case 2: pcErrMsg = 
case 3: pcErrMsg = 
case 4: pcErrMsg = 
case 5: pcErrMsg = 
case 6: pcErrMsg = 
case 7: pcErrMsg = 
case 8: pcErrMsg = 
case 9: pcErrMsg = 
case 11: pcErrMsg = 
case 14: pcErrMsg = 
case 15: pcErrMsg = 
case 16: pcErrMsg = 
default: pcErrMsg = 


DirErr; break; 

NoPlaceErr; break; 
NoFileErr; break; 
NoPlaceErr; break; 
NotADisverFileErr; break; 
FileNotOpenErr; break; 
FileNotSavedErr; break; 
PrinterNotReadyErr; break; 
DriveNotReadyErr; break; 
NoFileClickedErr; break; 
NoMemoryErr; break; 

DiskNotReadableErr; break; 
NULL; break; 


if(pcErrMsg == NULL) return; 

/* Breite und Höhe des Fensters festlegen */ 
iWidth = strlen(pcErrMsg) + 4; iLength = 3; 

/* Spalte und Zeile der oberen linken Ecke bestimmen */ 
iLeft = (40 - iWidth) / 2; iTop = (8 - iLength) / 2; 

/* Fenster aufmachen */ 

pcWinPtr = OpenWindow(iLeft, iTop, iWidth, iLength); 
if(pcWinPtr == NULL) return; 

/* Fehlermeldung ausgeben */ 

gotoxy(iLeft + 3, iTop + 2); printf("%s", pcErrMsg); 

/* Taste holen und Fenster schließen */ 
whi1e(!kbhit()); getchar(); 

CloseWindow(pcWinPtr); 
return; 


/* — Statusmeldung ausgeben - */ 

void Status(iStatus) 
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INT iStatus; /* Nummer der Statusmeldung */ 

{ 

CHAR *pcStatusMsg; /* Zeiger auf die Statusmeldung */ 

INT iLeft, iTop, /* Dimensionen des Fensters */ 

iWidth, iLength; 

/* evtl. Statusmeldung entfernen */ 
if((iStatus == 0) && (pcStatusWinPtr != NULL)) 

CI oseWindow(pcStatusWinPtr); 

/* Statusmeldung zuweisen */ 
switch(iStatus){ 

case 200: pcStatusMsg = PrintAllMsg; break; 

case 203: pcStatusMsg = DataLoadMsg; break; 

case 204: pcStatusMsg = DataSaveMsg; break; 

case 205: pcStatusMsg = SortMsg; break; 

case 206: pcStatusMsg = DirReadMsg; break; 

default: pcStatusMsg = NULL; break; 

} 

if(pcStatusMsg == NULL) return; 

/* Breite und Höhe des Fensters festlegen */ 
iWidth = strlen(pcStatusMsg) + 4; iLength = 3; 

/* Spalte und Zeile der oberen linken Ecke bestimmen */ 
iLeft = (40 - iWidth) / 2; iTop = (8 - iLength) / 2; 

/* Fenster aufmachen */ 

pcStatusWinPtr = 0penWindow(iLeft, iTop, iWidth, iLength); 
if(pcStatusWinPtr == NULL) return; 

/* Fehlermeldung ausgeben */ 
gotoxy(iLeft + 3, iTop + 2); 
printf("%s", pcStatusMsg); 
return; 

} 

/* — Speicherverwaltungsroutine - */ 

INT AllocEntry(iPtr, iChoice) 

INT iPtr, /* Position für die Speicher angefordert wird */ 
iChoice; /* Array, für das der Speicher sein soll */ 

{ 

switch(iChoice){ 
case FILES: 

if (iPtr > iFilesTop && iPtr <= MAXFILES){ 

/* Speicher anfordern */ 

File[iPtr] = (struct FileEntries *)calloc(l, 
sizeof(struct FileEntries)); 

/* kein Speicher mehr frei ? */ 
if (Fi 1 e[iPtr] == NULL) { 

Error(5); return(l); 

} 

/* obere Grenze erhöhen */ 
iFilesTop++; 

} 

return(0); 
case DIR: 

if (iPtr > iDirTop && iPtr <= MAXDIRS){ 

/* Speicher anfordern */ 

Dir[iPtr] = (struct DirEntries *)calloc(l, 
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sizeof(struct DirEntries)); 

/* kein Speicher mehr frei ? */ 
if (Dir[iPtr] == NULL) { 

Error(5); return(l); 

} 

/* obere Grenze erhöhen */ 
iDirTop++; 

} 

return(O); 
case DIRSTACK: 

if (iPtr > iDirStackTop && iPtr <= MAXDIRSTACKS){ 

/* Speicher anfordern */ 

DirStack[iPtr] = (struct DirStackEntries *)calloc(l, 
sizeof(struct DirStackEntries)); 

/* kein Speicher mehr frei ? */ 
if (DirStack[iPtr] == NULL){ 

Error(5); return(l); 

} 

/* obere Grenze erhöhen */ 
iDirStackTop++; 

} 

return(O); 
default: 

return(l); 


) 

/* — Directory-Bildschirm aufbauen - */ 

void SetupDiskScreenf) 

{ 


clrscr(); 
printf(" 

| (H)auptprg.\n"); 

printf(" 

| (U)nterprg.\n"); 

printf(" 

| (Ü)bernehmen\n M ) 

printf(" 

j(E)ditieren\n"); 

printf(" 

|(A)11e\n"); 

printf(" 

j(S)torno\n"); 

printf(" 

j(N)ächste\n"); 

printf(" 

j(B)eenden"); 

return; 



/* — Sortieren der Directory-Einträge im Bereich - */ 

/* - von iAnfang bis iEnde - */ 

void DirSort(iAnfang, iEnde) 

INT iAnfang, iEnde; 

{ 

INT i, j; /* Zähler */ 

struct DirEntries *SwapPtr; /* scratch pointer */ 

for (i = iAnfang; i <= iEnde - 1; i++){ 
for (j = i + 1; j <= iEnde; j++){ 

if (strcmp(Dir[i]->acName, Dir[j]->acName) > 0){ 

/* Zeiger auf die Strukturen vertauschen */ 

SwapPtr = Dir[i]; Dir[i] = Dir [j] ; Dir[j] = SwapPtr; 

} 
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} 

} 

return; 

} 

/* — Directory "pcVerzeichnis" ei niesen, ab Position - */ 

/* — "iCounter" in die Liste der Directory-Einträge - */ 

/* — bringen und Endwert zurückgeben - */ 

INT LeseDir(pcVerzeichnis, iCounter) 

CHAR *pcVerzeichnis; 

INT iCounter; 

{ 

struct ffblk Eintrag; /* Dateiinfo-Struktur */ 

INT iSuccess; /* Funktionsergebnis */ 

/* Namen des aktuellen und übergeordneten Verz. ermitteln */ 
strcpy(acDirName, pcVerzeichnis); 

/* Abschließenden Backslash entfernen */ 

*(acDirName + strlen(acDirName) - 1) = 0; 

/* Speicherplatz reservieren */ 

if (AllocEntry(iCounter, DIR) == 1) return(iCounter); 

/* Namen des aktuellen Verzeichnisses isolieren */ 
if (iLevel > 1) 

sprintf(Dir[iCounter]->acName, "Dir: %-s", 
strrchr(acDirName,'\\')); 

eise 

sprintf(Dir[iCounter]->acName, "Dir: %-s", acDirName); 

/* Directory ei niesen */ 

Dir[iCounter]->1Bytes = 0; 

strcat(acDirName, "\\*.*"); 

iSuccess = findfirst(acDirName, &Eintrag, 0x37); 

while(iSuccess == 0){ 

/* Alle Einträge bis auf und ei niesen */ 
if ((strcmp(Eintrag.ff_name, ".")) 

&& (strcmp(Eintrag.ff_name, "..")))( 
iCounter++; 

/* Speicherplatz reservieren */ 
if (AllocEntry(iCounter, DIR) == 1){ 
iSuccess = -1; iCounter-; 
break; 

} 

sprintf(Dir[iCounter]->acName, "- %-s",Eintrag.ff_name); 
if (Eintrag.ff_attrib & 0x10) 

/* Eintrag ist ein Unterdirectory */ 

Dir[iCounter]->1 Bytes « -1; 

eise 

/* Eintrag ist ein File */ 

Dir[iCounter]->1Bytes = Eintrag.ff_fsize; 

} 

iSuccess = findnext(&Eintrag); 

} 

return(iCounter); 

} 

/* - Kopf für eine neue Verschachtelungsebene - */ 

void Level Kopf() 
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if (AllocEntry(iDirAnz, DIR) == 1) return; 

strcpy(Dir[iDirAnz]->acName, "-"); 

Dir[iDirAnz]->lBytes = -3; iDirAnz++; 

if (AllocEntry(iDirAnz, DIR) == 1) return; 

sprintf(Dir[iDirAnz]->acName, "Level: %ld", iLevel); 

Dir[iDirAnz]->lBytes = -2; iDirAnz++; 

if (AllocEntry(iDirAnz, DIR) =- 1) return; 

strcpy(Dir[iDirAnz]->acName, " "); 

Dir[iDirAnz]->lBytes = -4; iDirAnz++; 

return; 

) 

/* — Kompletten Directory-Baum des Laufwerkes ei niesen — */ 

/* — und die Anzahl der Einträge zurückgeben - */ 

INT DisklnO 

{ 


INT 

iAnz, 

/* 

gelesene Einträge eines Unterverz. */ 


iDummy, 

/* 

Funktionsergebnis */ 


i; 

/* 

Zähler */ 

BYTE 

bDrv; 

/* 

Laufwerksnummer (0=A:, 1=B:, ...) */ 

CHAR 

acBuffer[512], 

/* 

Lesepuffer */ 


*pcPtr; 

/* 

scratch pointer */ 

struct 

ffblk Eintrag; 

/* 

Datei infoblock */ 


/* Laufwerksnummer setzen */ 
bDrv = acDrive[0] - 65; 

/* Testen, ob Laufwerk bereit */ 
iDummy = absread(bDrv, 1, 1, acBuffer); 
if (iDummy == —1){ 

Error(ll); return(iDirAnz - 1); 

1 

Status(206); 

/* Diskettennamen lesen */ 
strcpy(acBuffer, acDrive); 

iDummy = findfirst(acBuffer, &Eintrag, FA_LABEL); 
if (iDummy == 0){ 

strcpy(acDiskName, Eintrag.ff_name); 

/* evtl. Punkt aus dem Namen entfernen */ 
pcPtr = strchr(acDiskName, 46); 
if (pcPtr != NULL){ 

while(*pcPtr != '\0'){ 

*pcPtr * *(pcPtr + 1); pcPtr++; 

} 

) 

) 

el se 

strcpy(acDiskName, ""); 

Level Kopf(); 

/* Speicherplatz reservieren */ 

if (Al 1ocEntry(0, DIRSTACK) == 1) return(iDirAnz - 1); 
strcpy(DirStack[0]->acName, acDrive); 

/* Directory-Baum ei niesen */ 
while (iDirStackPtr <= iDirStackAnz){ 

if (DirStack[iDirStackPtr]->iLevel < 10){ 
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if (DirStack[iDirStackPtr]->iLevel > iLevel){ 
iLevel++; Level Kopf(); 

} 

/* Directory ei niesen und sortieren */ 

iAnz = LeseDir(DirStack[iDirStackPtr]->acName, iDirAnz); 

DirSort(iDirAnz + 1, iAnz); 

if (iAnz > 0) { 

/* Diskettennamen in DirStack schreiben */ 
if (iDirStackPtr == 0){ 

strcpy(DirStack[0]->acName, acDrive); 

DirStack[0]->iLevel = 0; 

} 

/* Nach Unterdirectories suchen */ 
for (i = iDirAnz +1; i <= iAnz; i++){ 
if (Dir[i]->lBytes == -1){ 
iDirStackAnz++; 

if (AllocEntry(iDirStackAnz, DIRSTACK)==1){ 
iDirStackAnz-; 
break; 

) 

strcpy(DirStack[iDirStackAnz]->acName, 

DirStack[iDirStackPtr]->acName); 
strcat(DirStack[iDirStackAnz]->acName, 
(Dir[i]->acName) + 2); 

strcat(DirStack[iDirStackAnz]->acName,"\\"); 
DirStack[iDirStackAnz]->iLevel - iLevel + 1; 

} 

) 

/* Leerzeile einfügen */ 
if (AllocEntry(iAnz + 1, DIR) == 1) break; 
strcpy(Dir[iAnz + l]->acName, ""); 

Dir[iAnz + 1]->1Bytes = -4; iDirAnz = iAnz + 2; 

) 

eise 

Error(2); 

} 

iDirStackPtr++; 

} 

Status(O); 

return(iDirAnz - 1); 

} 

/* — Einen Eintrag aus der Directory-Liste in der - */ 

/* — angegebenen Zeile ausgeben - */ 

void ShowOneDirEntry(iNumber, iRow) 

INT iNumber, /* lfd. Nummer des Eintrags */ 

iRow; /* Zeile, in der ausgegeben wird */ 

{ 

CHAR cMarker, /* Markierung */ 

acDirEntry[27]; /* Ausgabepuffer */ 

if (iNumber >= iDirAnz){ 

sprintf(acDirEntry, "%26s", " "); return; 

} 

switch(Dir[iNumber]->1Bytes){ 
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/* Eintrag ist eine Leerzeile */ 

case -4: sprintf(acDirEntry, "%-26s", " "); break; 

/* Eintrag ist ein Trennstrich */ 
case -3: sprintf(acDirEntry, 

■-"); 

break; 

/* Eintrag ist eine Level-Überschrift */ 
case -2: sprintf(acDirEntry, "%-26s", 

Dir[iNumber]->acName); 
break; 

/* Eintrag ist ein Unterdirectory */ 

case -1: sprintf(acDirEntry, "%-14.14s (DIR) ", 

Dir[iNumber]->acName); 
break; 

/* Eintrag ist eine Directory-Überschrift */ 
case 0: sprintf(acDirEntry, "%-26s", 

Di r[iNumber]->acName); 
break; 

/* Eintrag ist ein File */ 

default: switch(Dir[iNumber]->cSelect){ 

case 1: cMarker = 16; break; 

case 2: cMarker = 175; break; 

default: cMarker = break; 

} 

sprintf(acDirEntry, "%-14.14s %61d 

Dir[iNumber]->acName, Dir[iNumber]->1Bytes); 
*acDirEntry = cMarker; 
break; 

1 

gotoxy(l, iRow); printf("%s", acDirEntry); 
return; 

} 

/* — Elemente der Directory-Liste ab Position "iDirPtr" — */ 

/* — auf dem Bildschirm ausgeben - */ 

void ShowEntries() 

{ 

INT 1; /* Zähler */ 

if (iDirPtr + 8 > iDirAnz) iDirPtr = iDirAnz - 7; 
if (iDirPtr < 0) iDirPtr = 0; 

/* Einträge ausgeben */ 
for (i = 0; i < 8; i++){ 

ShowOneDirEntry(iDirPtr + i, i +1); 

} 

return; 

} 

/* — Einträge der Directory-Liste - */ 

/* — entsprechend dem Argument scrollen - */ 

void DirScroll(iNum) 

INT iNum; /* Anzahl Zeilen, um die gerollt wird */ 

{ 

INT i; /* Zähler */ 
switch (iNum){ 
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case END: 
case DOWN: 


case UP: 


iDirPtr = 0; 

ShowEntries(); break; 
iDirPtr = iDirAnz - 7; 

ShowEntriesQ; break; 
if (iDirPtr < iDirAnz - 8){ 
iDirPtr++; 

Regs.x.ax = 0x0601; Regs.x.cx = 0; 
Regs.x.dx = 0x0719; Regs.h.bh = 0; 
int86(0xl0, &Regs, &Regs); 
ShowOneDirEntry(iDirPtr + 7, 8); 

} 

break; 

if (iDirPtr > 0){ 
iDirPtr-; 

Regs.x.ax = 0x0701; Regs.x.cx = 0; 
Regs.x.dx = 0x0719; Regs.h.bh = 0; 
int86(0xl0, &Regs, &Regs); 
ShowOneDirEntry(iDirPtr, 1); 


break; 

case PAGEUP: for (i = 0; i < 8; i++){ 

if (iDirPtr > 0){ 
iDirPtr-; 

Regs.x.ax = 0x0701; Regs.x.cx = 0; 
Regs.x.dx = 0x0719; Regs.h.bh = 0; 
int86(0xl0, &Regs, &Regs); 
ShowOneDirEntry(iDirPtr, 1); 

} 

} 

break; 

case PAGEDOWN: for (i =0; i <8; i++){ 

if (iDirPtr < iDirAnz - 8) { 
iDirPtr++; 

Regs.x.ax = 0x0601; Regs.x.cx = 0; 
Regs.x.dx = 0x0719; Regs.h.bh = 0; 
int86(0xl0, &Regs, &Regs); 
ShowOneDirEntry(iDirPtr +7, 8); 

} 

} 

break; 

default: iDirPtr += iNum; 

ShowEntriesO; break; 

} 

return; 


/* — Alle Selektierungen rückgängig machen - */ 

void DirHighlightClear() 

{ 

INT i; /* Zähler */ 


for (i =0; i <= iDirAnz; i++) Dir[i]->cSelect = 0; 
return; 

} 

/* — Diskettennamen anzeigen und evtl, editieren lassen — */ 
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void TestDiskName() 

{ 

CHAR *pcWinPtr; /* Zeiger auf Fensterpuffer */ 

/* Requester öffnen und neuen Kartennamen abfragen */ 
pcWinPtr = 0penWindow(9, 2, 22, 4); 
gotoxy(ll, 4); printf("Kartennamen eingeben"); 
gotoxy(13, 5); printf("Name:"); 

Input(19, 5, 10, acDiskName); 

CloseWindow(pcWinPtr); 

ShowEntries(); 
return; 

} 

/* — Markierten Eintrag zum Hauptprogramm machen - */ 

void MainProgram() 

{ 

INT i; /* Zähler */ 

/* evtl, vorherige Hauptprogrammmarkierungen löschen */ 
for (i =0; i <= iDirAnz; i++) 

if (Dir[i]->cSelect == 2) Dir[i]->cSelect = 0; 

/* erstes markierten Eintrag suchen */ 
for (i = 0; (Dir[i]->cSelect == 0) && (i <= iDirAnz); i++); 
/* Eintrag markieren und Hauptprogrammpointer übergeben */ 
iHauptPrgPtr = i; Dir[i]->cSelect = 2; 

/* Byteanzahl für spätere Addition merken */ 

IHauptPrgBytes = Dir[i]—>1 Bytes; 

/* Markierung anzeigen */ 

ShowEntries(); 
return; 

} 

/* — Bytes aller markierten Einträge addieren - */ 

void SubProgramQ 

{ 

INT i, j; /* Zähler */ 
j = -1; 

if (iHauptPrgPtr != -1){ 

for (i =0; i <= iDirAnz; i++){ 
if (Dir[i]->cSelect == 1){ 

IHauptPrgBytes += Dir[i]—>1 Bytes; 

Di r[iHauptPrgPtr]->lBytes = IHauptPrgBytes; 
bModify = 1; 

} 

else{ 

J++; 

if (i == iHauptPrgPtr) iHauptPrgPtr = j; 
strcpy(Dir[j]->acName, Dir[i]->acName); 

Dir[j]—>1 Bytes = Dir[i]->lBytes; 

Dir[j]->cSelect = 0; 

) 

} 

for (i = j + 1; i <= iDirAnz; i++) Dir[i]->cSelect = 0; 
iDirAnz = j; 
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Dir[iHauptPrgPtr]->cSelect = 1; 
if (iDirAnz < 19) 
iDirPtr = 0; 

eise 

iDirPtr = iHauptPrgPtr - 4; 
iHauptPrgPtr = -1; 

ShowEntries(); 

} 

return; 

} 

/* — Alle markierten Einträge in die Liste - */ 

/* — der Files übernehmen - */ 

void AddEntry() 

{ 

INT i, j; /* Zähler */ 

if (iHauptPrgPtr < 1){ 

/* alle markierten Einträge übernehmen */ 

j = 2; 

for (i =3; i <= iDirAnz; i++){ 
if (Dir[i]->cSelect > 0) { 
if (iFileAnz < MAXFILES){ 

/* Speicherplatz reservieren */ 
iFileAnz++; 

if (AllocEntry(iFileAnz, FILES) == 1){ 
iFileAnz-; break; 

} 

/* Inhalte übertragen */ 
strcpy(Fi 1e[iFileAnz]->acName, 

(CHAR *)(Dir[i]->acName) + 2); 

Fi 1e[iFi1eAnz]—>1 Bytes = Dir[i]->lBytes; 
strcpy(Fi 1e[iFileAnz]->acDisk, acDiskName); 
File[iFileAnz]->cSelect = 0; 
bModify = 1; 

} 

eise 

Error(3); 

} 

else{ 

j ++ ; 

strcpy(Dir[j]->acName, Dir[i]->acName); 

Dir[j]—>1 Bytes = Dir[i]—>1 Bytes; 

Dir[j]->cSelect - Dir[i] —>cSelect; 

} 

} 

iDirAnz = j; 

} 

if (iDirAnz < 8) 
iDirPtr = 0; 

eise 

if (iDirPtr + 7 > iDirAnz) iDirPtr = iDirAnz - 8; 
ShowEntries(); 
return; 

} 
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/* — Initialisierung der Variablen 
void InitDirVarsQ 

{ 

iDirStackPtr = iLevel = iDirPtr = iDirCursorPos = 0; 

iDirAnz = iDirStackAnz = 0; 

bEndel = bEnde2 = 0; 

iHauptPrgPtr = -1; 

return; 

} 

/* — Markierung mit der Space-Taste entsprechend - */ 

/* — der Position auswerten-*/ 

void CIickOnEntries(iNumber) 

INT iNumber; /* Nummer des markierten Eintrags */ 

{ 

INT j; /* Zähler */ 

if (iNumber != iHauptPrgPtr){ 

if (Dir[iNumber]->1Bytes > 0){ 

/* Eintrag ist ein File -> Markierung umschalten */ 
if (Dir[iNumber]->cSelect == 1) 

Dir[iNumber]->cSelect = 0; 

eise 

if (Dir[iNumber]->cSelect == 0) 

Dir[iNumber]->cSelect = 1; 

} 

else{ 

/* Eintrag ist Directory-Überschrift -> Markierungen 
innerhalb des Directories umschalten */ 
if (Dir[iNumber]->1Bytes == 0){ 

for (j = iNumber + 1; Dir[j]—>1 Bytes > -2; j++){ 
if ((Dir[j]->cSelect==0) && (Dir[j]—>1Bytes>0)) 
Dir[j]->cSelect = 1; 

eise 

if (Dir[j]->cSelect==l) Dir[j]->cSelect ■ 0 

} 

} 

} 

} 

ShowEntries(); 
return; 

} 

/* - Tastendruck auswerten - */ 

void ActionOnDiskKey(cKey, cKeyExt) 

CHAR cKey, /* ASCII-Code der Taste */ 

cKeyExt; /* erweiterter Tastaturcode */ 

{ 

CHAR *pcWinPtr; /* Zeiger auf Fensterpuffer */ 

INT i; /* Zähler */ 

if(cKey != 0){ 
switch(cKey){ 

/* Leertaste - Markieren */ 

case 32: CIickOnEntries(iDirPtr + iDirCursorPos); 

break; 
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/* H - Markierten Eintrag zum Hauptprogramm machen */ 
case 'h': 

case 1 H 1 : MainProgramQ ; break; 

/* U - Markierte Einträge zum Hauptprogramm addieren */ 
case V: 

case 1 U*: SubProgram(); break; 

/* Ü - Markierte Einträge übernehmen */ 

case 'ü 1 : case 1 Ü 1 : 

case ' + AddEntryQ; break; 

/* E - Namen der markierten Einträge editieren */ 
case 'e': 

case 'E 1 : pcWinPtr = 0penWindow(9, 2, 22, 4); 
gotoxy(ll, 4); 

printf("Neuen Namen eingeben"); 
gotoxy(ll, 5); printf("Name:"); 
for (i =4; i <= iDirAnz; i++){ 
if (Dir[i]->cSelect == 1){ 

Input(17,5,12,(Dir[i]->acName)+2); 
Dir[i]->cSelect = 0; 

1 

} 

CloseWindow(pcWinPtr); 

ShowEntriesO; break; 

/* A - Alle Einträge markieren */ 
case 'a 1 : 

case 'A': for (i =2; i <= iDirAnz; i++) 
if ((Dir[i]->l Bytes > 0) && 

(i != iHauptPrgPtr)) 

Dir[i]->cSelect = 1; 

ShowEntriesO; break; 

/* S - Alle Markierungen rückgängig machen */ 
case 's': 

case 'S': for (i = 0; i <= iDirAnz; i++) 
Dir[i]->cSelect = 0; 
iHauptPrgPtr = -1; 
lHauptPrgBytes = 0; 

ShowEntriesO; break; 

/* B - Bearbeitung beenden */ 
case 'b 1 : 

case 'B 1 : bEndel = 1; 

/* N - Nächste Magnetkarte ei niesen */ 
case 'n 1 : 

case 1 N': bEnde2 = 1; iHauptPrgPtr = -1; 

DirHighlightClear(); break; 
default: break; 


} 

el se{ 

switch(cKeyExt){ 

/* Cursor nach oben */ 
case 72: if(iDirCursorPos « 0) 

DirScroll(UP); 

el se 

iDirCursorPos-; 
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break; 

/* Cursor nach unten */ 

case 80: if(iDirCursorPos == 7) 

DirScrol1(DOWN); 

eise 

if (iDirPtr + iDirCursorPos < iDirAnz) 
iDirCursorPos++; 

break; 

/* Bild nach oben (PageUp) */ 
case 73: DirScrol1(PAGEUP); break; 

/* Bild nach unten (PageDn) */ 

case 81: DirScroll(PAGEDOWN); break; 

/* Posl (Home) */ 

case 71: DirScrol1(HOME); break; 

/* Ende (End) */ 

case 79: DirScrol1(END); break; 

default: break; 

} 

} 

return; 

} 

/* — Magnetkarte ei niesen - */ 

void DisketteEinlesenQ 

{ 

CHAR cKey, cKeyExt; /* Tastenpuffer */ 

/* Bildschirm aufbauen */ 

SetupDiskScreen(); 

/* Eingabeschleife */ 
while (bEndel == 0){ 

InitDirVarsQ; 

/* Directory des gewählten Laufwerkes ei niesen */ 
iDirAnz = Diskln(); 

/* Diskettennamen zur Änderung anzeigen */ 
if (iDirAnz > 0) TestDiskNameQ; 
iDirPtr = 0; ShowEntriesQ; 
while (bEnde2 « 0){ 

/* Cursor positionieren */ 
gotoxy(l, iDirCursorPos + 1); 

/* Hat der User sich gerührt ? */ 

GetKey(&cKey, &cKeyExt); 

ActionOnDiskKey(cKey, cKeyExt); 


} 

bEndel = 0; 
return; 

} 

/* - File-Bildschirm aufbauen - */ 

void SetupFileScreen() 

{ 

clrscrO; 

printf(" I DISVER\n") 

printf(" j \n") 

printf(" I Files:\n") 
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printf(" 
printf(" 
printf(" 
printf(" 
printf(" 
gotoxy(0, 0); 
return; 

} 

/* — Bytes summieren 
LONG do_sum() 

{ 

INT i; 

LONG ISumBytes; 

ISumBytes = 0; 


\n") 
Bytes:\n") 
\ n ") 
\n") 


Fl—Menü"); 


*/ 


/* Zähler */ 

/* Summe der Bytes */ 


for(i =0; i <= iFileAnz; i++) ISumBytes += File[i]—>1 Bytes; 
return(ISumBytes); 

} 

/* — Alle Selektierungen aufheben - */ 

void HighLightClearQ 

{ 

INT i; 


for(i = 0; i <= iFileAnz; i++) Fi 1e[i]—>cSelect = 0; 
return; 

} 

/* — Einen Eintrag aus der Liste der Files in der - */ 

/* — angegebenen Zeile ausgeben - */ 

void ShowOneFileEntry(iNumber, iRow) 

INT iNumber, /* lfd. Nummer des Eintrags */ 

iRow; /* Zeile, in der ausgegeben wird */ 

{ 

CHAR cMarker; /* Markierung */ 

gotoxy(l, iRow); 
if (iNumber > iFileAnz)) 
printf ("%31s\ " "); 
return; 


switch(File[iNumber]->cSelect){ 

/* Normale Markierung */ 
case 1: cMarker = 16; break; 

/* als Hauptprogramm markiert */ 
case 2: cMarker = 175; break; 

/* nicht markiert */ 

default: cMarker = 32; break; 

1 

printf("%c%-12s %61d %-10s", cMarker, File[iNumber]->acName, 
Fi 1e[iNumber]->1Bytes, Fi 1e[iNumber]->acDisk); 
return; 


/* — Files ab Position 'iFi1ePtr' anzeigen 
void ShowFiles() 

{ 


/ 


295 










i; 


/* Zähler */ 


Kapitel 3 


INT 


if (iFilePtr + 8 > iFileAnz) iFilePtr = iFileAnz - 7; 
if (iFilePtr < 0) iFilePtr = 0; 

for (i = 0; i < 8; i++) ShowOneFileEntry(iFilePtr + i, i + 1); 
return; 

} 

/* - Liste der Files entsprechend dem Argument scrollen - */ 

void FileScroll(iNum) 

INT iNum; /* Zeilenanzahl, um die gescrollt wird */ 

{ 

INT i; 


switch(iNum){ 
case END: 

case HOME: 

case DOWN: 


case UP: 


iFilePtr = iFileAnz - 7; 

ShowFilesO; break; 
iFilePtr = 0; 

ShowFilesO; break; 
if (iFilePtr < iFileAnz - 8){ 
iFilePtr++; 

Regs.x.ax - 0x0601; Regs.x.cx = 0; 
Regs.x.dx = 0x071e; Regs.h.bh = 0; 
int86(0xl0, &Regs, &Regs); 
ShowOneFileEntry(iFilePtr +7, 8); 

1 

break; 

if (iFilePtr > 0){ 
iFilePtr-; 

Regs.x.ax = 0x0701; Regs.x.cx = 0; 
Regs.x.dx = 0x071e; Regs.h.bh = 0; 
int86(0x10, &Regs, &Regs); 
ShowOneFileEntry(iFilePtr, 1); 


break; 

case PAGEUP: for (i =0; i <8; i++){ 

if (iFilePtr > 0){ 
iFilePtr-; 

Regs.x.ax = 0x0701; Regs.x.cx = 0; 
Regs.x.dx = 0x071e; Regs.h.bh = 0; 
int86(0x10, &Regs, &Regs); 
ShowOneFileEntry(iFilePtr, 1); 

} 

} 

break; 

case PAGEDOWN: for (i - 0; i < 8; i++){ 

if (iFilePtr < iFileAnz - 8){ 
i FilePtr++; 

Regs.x.ax = 0x0601; Regs.x.cx = 0; 
Regs.x.dx = 0x071e; Regs.h.bh = 0; 
int86(0xl0, &Regs, &Regs); 
ShowOneFileEntry(iFilePtr + 7, 8); 

1 

} 

break; 
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} 

return; 


iFilePtr += iNum; 
ShowFiles(); break; 
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} 

/* — Menü anzeigen und gewählten Menüpunkt zurückliefern — */ 
CHAR Menu(apcMenuArray) 

CHAR *apcMenuArray[]; /* Zeiger auf Array der Menüoptionen 

{ 


CHAR 

INT 


cKey, cKeyExt, /* Tasten */ 

cChar, /* Menüauswahl */ 

*pcWinPtr; /* Zeiger auf Fensterpuffer */ 

iLeft, iTop, /* Dimensionen des Fensters */ 

iWidth, iLength, 

iMenuCursorPos, /* Zeile des Auswahl Cursors */ 
i; /* Zähler */ 


*/ 


/* Höhe des Fensters berechnen */ 
iLength = strlen(apcMenuArray[0]); 

/* breitesten String suchen */ 
iWidth = 0; 

for (i = 1; i <= iLength; i++) 

if(iWidth < strlen(apcMenuArray[i])) 
iWidth = strlen(apcMenuArray[i]); 

/* Rahmen in Breite und Höhe einbeziehen */ 
iWidth += 4; iLength += 2; 

/* Spalte und Zeile der oberen linken Ecke bestimmen */ 
iLeft = (40 - iWidth) / 2; iTop = (8 - iLength) / 2; 

I* Fenster aufmachen */ 

pcWinPtr = OpenWindow(iLeft, iTop, iWidth, iLength); 
if(pcWinPtr == NULL) return(0); 

/* Menütitel zentriert ausgeben */ 

gotoxy(iLeft+l+((iWidth-strlen(apcMenuArray[l]))/2), iTop+1); 
printf("%s", apcMenuArray[l]); 

/* Menüoptionen ausgeben */ 
for(i =2; i <= iLength - 1; i++){ 

gotoxy(iLeft + 3, iTop + i); printf("%s", apcMenuArray[i]); 

) 

iMenuCursorPos = 0; cChar » 0; 

/* Taste holen und auswerten */ 
do{ 

gotoxy(iLeft + 3, iTop + 2 + iMenuCursorPos); 

GetKey(&cKey, &cKeyExt); 
if (cKey != 0){ 

if (cKey == 27){ 

cChar = 27; break; 

) 

if (cKey == 13) 

cChar = *(apcMenuArray[0] + iMenuCursorPos); 

eise 

cChar = *strchr(apcMenuArray[0], cKey); 

} 

else{ 

switch (cKeyExt){ 
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/* Cursor nach oben */ 
case 72: iMenuCursorPos-; 

if (iMenuCursorPos < 0) 
iMenuCursorPos = 0; 
break; 

/* Cursor nach unten */ 
case 80: iMenuCursorPos++; 

if (iMenuCursorPos > iLength - 3) 
iMenuCursorPos = iLength - 3; 
break; 

default: break; 

} 

} 

}while(cChar == 0); 

/* Fenster wieder schließen */ 

CloseWindow(pcWinPtr); 

ShowFilesQ; 
retirrn(cChar); 


/* — Daten löschen - */ 

void CleanUpQ 

{ 


bModify = 0; 

iFileAnz = iHauptPrgPtr = -1; 

iFilePtr = 0; 

return; 


} 

/* — Dateinamen mittels File-Requester abfragen - */ 

INT FileReq(pcName, iMode) 

CHAR *pcName; /* Dateiname */ 

INT iMode; /* Modus (0=Lesen, l=Schreiben) */ 

f 


CHAR 


INT 


*pcWinPtr, 
acMode[10], 
aclnput[21], 
acPath[21]; 
iEscape; 


/* Zeiger auf Fensterpuffer */ 
/* Modus-String */ 

/* Dateiname */ 

/* Pfad zur Datei */ 

/* Abbruch-Flag */ 


if(iMode == 0) 

strcpy(acMode, "lesen"); 

eise 

strcpy(acMode, "schreiben"); 
strcpy(acPath, "A:"); 
strcpy(aclnput, "DISVER.DIS"); 
pcWinPtr = 0penWindow(3, 1, 35, 5); 
gotoxy(5, 3); printf(" DISVER-Daten %s", acMode); 

gotoxy(5, 4); printf("Pfad: <%-20s>", acPath); 

gotoxy(5, 5); printf("Dateiname: <%-20s>", aclnput); 
iEscape = Input(17, 4, 19, acPath); 
if (iEscape == 1){ 

CloseWindow(pcWinPtr); return(iEscape); 

} 

iEscape = Input(17, 5, 19, aclnput); 

CIoseWindow(pcWinPtr); 
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if (iEscape == 1) return(iEscape); 
ShowFiles(); 

/* Dateinamen zusammenbasteln */ 


strcpy(pcName, acPath); 
strcat(pcName, aclnput) 
return(O); 

} 

/* — Disver-Daten laden - 
void FileLaden() 

{ 

INT iEscape, 

iAnzahl, 
iInput; 

CHAR aclnput[42], 

acldentify[7]; 


strcat(pcName, "\\"); 


*/ 


/* Abbruch-Flag */ 

/* Anzahl gelesener Bytes */ 

/* Filedeskriptor der Datei */ 
/* Dateiname */ 

/* Kennung der Daten */ 


iInput = 1; 
do{ 

/* Dateinamen abfragen */ 

iEscape = FileReq(acInput, MOLESEN); 

if (iEscape == 1) return; 

/* Datei öffnen */ 
iInput = open(acInput, 0_BINARY); 
if(iInput == -1) Error(4); 

} whi1e(iInput == -1); 

/* Kennung prüfen, ob es sich auch um DISVER-Daten handelt */ 
iAnzahl = read(iInput, acldentify, 7); 
if(iAnzahl < 7) return; 
if(strcmp(acldentify, "DISVER") == 0){ 

Status(203); 

/* Änderungs-Flag setzen, wenn Daten angehängt werden */ 
if (iFileAnz != -1) bModify = 1; 

/* Daten ei niesen */ 
while(iAnzahl){ 
iFileAnz++; 

if(iFileAnz > MAXFILES){ 
iFileAnz-; Error(5); 
break; 

} 

/* Speicherplatz für den File-Eintrag reservieren */ 
if (AllocEntry(iFileAnz, FILES) == 1){ 
iFileAnz-; break; 

) 

iAnzahl = read(ilnput, File[iFileAnz], 
sizeof(struct FileEntries)); 


else{ 

Error(6); 
return; 

} 

close(iInput); 

Status(0); iFileAnz-; 
iFilePtr = 0; ShowFilesQ; 
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return; 


/* — DISVER-Daten speichern 
void FileSpeichern() 


*/ 


CHAR ac0utput[42]; 

INT i, 


/* Dateiname */ 

/* Zähler */ 

/* Abbruch-Flag */ 

/* Anzahl geschriebener Bytes */ 

/* Filedeskriptor der Ausgabedatei */ 


iEscape, 
iAnzahl, 
iOutput; 


iOutput = 1; 
do{ 

/* Dateinamen abfragen */ 
iEscape = FileReq(acOutput, MO_SCHREIBEN); 
if (iEscape == 1) return; 

/* Datei öffnen */ 
iOutput = _creat(acOutput, FA_ARCH); 
if(iOutput == -1) Error(7); 

} whi1e(iOutput == -1); 

/* Kennung schreiben */ 

iAnzahl = write(iOutput, "DISVER", 7); 

if (!iAnzahl){ 

Error(8); return; 

} 

Status(204); 

for(i = 0; i <= iFileAnz; i++){ 

iAnzahl = write(iOutput,File[i]»sizeof(struct Fi 1eEntries)); 
if(!iAnzahl){ 

Status(0); Error(8); 
return; 

} 

} 

close(iOutput); Status(O); 

/* Änderungsflag zurücksetzen */ 
bModify = 0; ShowFi1 es(); 
return; 

} 

/* — Programm beenden und vorher allen - 

— belegten Speicher frei geben -*/ 

void ThisIsTheEnd() 

{ 

INT 1; /* Zähler */ 

if (bModify == 1) FileSpeichern(); 

for (i = 0; i <= iFileAnz; i++) free(File[i]); 

cl rscrQ; 

printf("Vielen Dank für den Einsatz \nvon DISVER Portfolio.\n"); 
exit(O); 

} 

/* — Sortieren der File-Liste nach dem Filenamen - 

- im Bereich von 0 bis iEnd - */ 

void NameSort(iEnd) 

INT iEnd; /* Ende des Sortierbereiches */ 
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INT iUntereSchranke, iObereSchranke, 

i, j, k; /* Zähler */ 

struct FileEntries *W, *X; /* scratch pointer */ 

iUntereSchranke = (iEnd / 2) + 1; 
iObereSchranke = iEnd; 
while (iObereSchranke > 0){ 
if (iUntereSchranke > 0){ 

iUntereSchranke-; i = iUntereSchranke; 

} 

else{ 

W = Fi 1e[0]; File[0] = Fi 1e[iObereSchranke]; 
File[iObereSchranke] = W; 
iObereSchranke-; i = 0; 

} 

X = File[i]; k = 0; 

while ((2 * i <= iObereSchranke) && (k == 0)){ 
j = 2 * i; 

if (j < iObereSchranke){ 

if (strcmp(File[j]->acName, 

Fi1e[j + l]->acName) < 0) 
j ++ ; 

} 

if (strcmp(X->acName, File[j]->acName) < 0){ 
Filefi] = Fi 1 e[j]; i = j; 

} 

eise 

k = 1; 

} 

Fi1e [ i] = X; 

} 

return; 

) 

/* — Sortieren der File-Liste nach dem Kartennamen - 

— im Bereich von 0 bis iEnd - */ 

void CardSort(iEnd) 

INT iEnd; /* Ende des Sortierbereiches */ 

{ 

INT iUntereSchranke, iObereSchranke, 

i, j, k; /* Zähler */ 

struct FileEntries *W, *X; /* scratch pointer */ 

iUntereSchranke = (iEnd / 2) + 1; 
iObereSchranke = iEnd; 
while(iObereSchranke > 0){ 
if(iUntereSchranke > 0){ 

iUntereSchranke-; i = iUntereSchranke; 

} 

else{ 

W = File[0]; Fi 1e[0] = Fi 1e[iObereSchranke]; 
File[iObereSchranke] = W; 
iObereSchranke-; i = 0; 

} 
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X = Fi1e[i]; k = 0; 

whi 1 e((2 * i <= iObereSchranke) && (k == 0)){ 
j = 2 * 1; 

if(j < iObereSchranke){ 

if(strcmp(File[j]->acDisk, 

File[j + l]->acDisk) < 0) 
j++; 

} 

if(strcmp(X->acDisk, File[j]->acDisk) < 0){ 

Fi 1 e[i] = Fi 1 e[j]; i = j; 

} 

eise 

k = 1; 

1 

Fi 1 e [i] = X; 

) 

return; 

) 

/* — Sortieren der File-Liste nach der Größe - 

- in Bytes im Bereich von 0 bis iEnd - */ 

void ByteSort(iEnd) 

INT iEnd; /* Ende des Sortierbereiches */ 

{ 

INT iUntereSchranke, iObereSchranke, 

i, j, k; /* Zähler */ 

struct FileEntries *W, *X; /* scratch pointer */ 

iUntereSchranke = (iEnd / 2) + 1; 
iObereSchranke = iEnd; 
while(iObereSchranke > 0){ 
if(iUntereSchranke > 0){ 

iUntereSchranke-; i = iUntereSchranke; 

) 

el se{ 

W = File[0]; Fi 1e[0] = Fi 1e[iObereSchranke]; 
File[iObereSchranke] = W; 
iObereSchranke-; i =0; 

) 

X = Fi 1 e[i]; k = 0; 

whi 1 e((2 * i <= iObereSchranke) && (k == 0)){ 
j = 2 * i; 

if(j < iObereSchranke){ 

if(Fi 1 e[j]—>1 Bytes < Fi 1 e[j+1]—>1 Bytes) j++; 

} 

if(X—>1 Bytes < Fi 1e[j]—>1 Bytes){ 

Fi 1 e[i] = File[j]; i = j; 

} 

eise 

k = 1; 

} 

Fi 1 e [i] = X; 

} 

return; 





/* — File editieren 
void EditAFileO 


7 


CHAR 

*pcWinPtr, 

/* Zeiger auf den Fensterpuffer */ 


acEditBytes[7]; 

/* Puffer für die Bytes */ 

INT 

i; 

/* Zähler */ 

L0NG 

1EditBytes; 

/* Puffer für die Bytes */ 


/* Fenster öffnen und beschreiben */ 
pcWinPtr = 0penWindow(3, 1, 34, 6); 
gotoxy(13, 3); printf("File editieren"); 
gotoxy(6, 4); printf(" Name Bytes Karte"); 

gotoxy(6, 5); printf("-"); 

for(i = 0; i <= IFileAnz; i++){ 
if(Fi 1 e[i]—>cSelect == 1){ 

/* Werte holen und anzeigen */ 
gotoxy(6, 6); 

sprintf(acEditBytes, "%-ld", Fi 1e[i]—>1 Bytes); 
printf("%-12s %—61d %-10s", Fi 1e[i]->acName, 

Fi 1e[i]—>1 Bytes, Fi1e[i]—>acDisk); 

/* Werte nacheinander abfragen */ 

Input(6, 6, 12, File[i]->acName); 
do{ 

Input(19, 6, 6, acEditBytes); 
lEditBytes = atol(acEditBytes); 
sprintf(acEditBytes, "%-ld", Fi 1e[i]—>1 Bytes); 
}whi1e(1EditBytes == 0); 

Fi 1e[i]—>1 Bytes = lEditBytes; 

Input(26, 6, 10, Fi 1e[i]—>acDisk); 

/* Markierung löschen und Änderungs-Flag setzen */ 
Fi 1e[i]—>cSelect = 0; bModify = 1; 


CloseWindow(pcWinPtr); ShowFiles(); 
return; 

} 

/* — Angeklickte Files löschen - */ 

void FileLoeschen() 

{ 

INT i, j ■ -1; /* Zähler */ 

for(i =0; i <= iFileAnz; i++){ 
if(Fi 1e[i]—>cSelect == 0){ 

/* Änderungen-Flag setzen */ 
bModify = 1; j++; 

File[j] = Fi 1 e[i]; 


eise 

File[i]->cSelect = 0; 

} 

iFileAnz = j; ShowFilesQ; 
return; 


/* — Neues File von Hand eingeben 
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void FileNeu() 

{ 

INT i; /* Zähler */ 

/* Prüfen, ob noch Platz für das neue File ist */ 
if(iFileAnz < MAXFILES){ 

/* Alle Markierungen löschen */ 

for(i =0; i <= iFileAnz; i++) File[i]->cSelect = 0; 

/* Leeres File anhängen */ 

iFileAnz++; 

if (AllocEntry(iFileAnz, FILES) == 1){ 
iFileAnz-; return; 

} 

/* Letztes File selektieren und editieren lassen */ 
strcpy(Fi 1e[iFileAnz]->acName, ""); 

Fi 1 e [iFi 1 eAnz]— >1 Bytes = 0; 
strcpy(Fi 1e[iFileAnz]->acDisk, ""); 
File[iFileAnz]->cSelect = 1; 

EditAFileO; 

/* Ende der File-Liste zeigen */ 
if(i Fi leAnz < 8) 
iFilePtr - 0; 

el se 

iFilePtr = iFileAnz - 7; 

ShowFiles(); 


eise 

Error(5); 
return; 

} 

/* — Informationen über das Programm anzeigen - */ 

void FileAboutQ 

{ 

CHAR *pcWinPtr; /* Zeiger auf Fensterpuffer */ 

/* Meldung ausgeben */ 

pcWinPtr = OpenWindow(l, 0, 37, 7); 

if(pcWinPtr == NULL) return; 

gotoxy(10, 2); printf("DISVER Portfolio 1.0"); 

gotoxy(10, 3); printf("von Michael Schuschk"); 

gotoxy(7, 4); printf("(C) 1990 Markt & Technik AG"); 

gotoxy(3, 5); 

printf("%3d Files mit %d kB gespeichert.", iFileAnz + 1, 
do_sum() / 1024); 
gotoxy(5, 6); 

printf("Es ist noch Platz für %3d Files.", MAXFILES-iFileAnz-1); 
whi1e(!kbhit()); CloseWindow(pcWinPtr); 

ShowFiles(); 
return; 

} 

/* — Markiertes File zum Hauptprogramm machen-*/ 

void HauptProgramm() 

{ 

INT i; /* Zähler */ 
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/* eventuelle vorherige Hauptprogrammmarkierung löschen */ 
for (i =0; i <= iFileAnz; i++) 

if (Fi 1e[i]—>cSelect == 2) File[i]->cSelect = 0; 

/* Markiertes File suchen */ 

for (i = 0; (File[i]->cSelect == 0) && (i <= iFileAnz); i++); 
if (i != iFi 1eAnz){ 

/* File markieren und an HauptPrgPtr übergeben */ 
iHauptPrgPtr = i; Fi 1e[i]—>cSelect = 2; 

IHauptPrgBytes = Fi1e[I]—>1 Bytes; 

ShowFiles(); 

} 

return; 

1 

/* — Markierte Files zum Hauptprogramm addieren - */ 

void UnterProgramm() 

{ 

INT i, j; /* Zähler */ 

j = -l; 

/* Hauptprogramm markiert ? */ 
if (iHauptPrgPtr == -1) return; 
for (i =0; i <= iFileAnz; i++){ 
if (Fi1e[i]—>cSelect == 1){ 

/* Unterprogramm addieren */ 

IHauptPrgBytes += Fi 1e[i]—>1 Bytes; 

Fi 1 e[iHauptPrgPtr]—>1 Bytes = IHauptPrgBytes; 
bModify = 1; 

} 

el se{ 

/* Hauptprogrammpointer anpassen */ 

j ++ ; 

if (i == iHauptPrgPtr) iHauptPrgPtr = j; 
strcpy(File[j]->acName, File[i]->acName); 

Fi 1e[j]—>1 Bytes = Fi 1e[i]—>1 Bytes; 
strcpy(File[j]->acDisk, Fi 1e[i]—>acDisk); 
File[j]->cSelect = 0; 

1 

} 

for (i = j + 1; i <= iFileAnz; 1++) File[i]->cSelect = 0; 
iFileAnz = j; 
if (iFileAnz < 7) 
iFilePtr = 0; 

el se 

iFilePtr = iHauptPrgPtr - 3; 

File[iHauptPrgPtr]->cSelect = 0; 
iHauptPrgPtr = -1; ShowFilesQ; 
return; 

} 

/* — Aktuelle Systemzeit holen und umwandeln - */ 

CHAR *Zeit() 

( 

struct tm *Tm; /* von localtime() benutzt */ 

L0NG IT; /* von time() benutzt */ 
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static CHAR acZeitßuffer[20], /* Systemzeit als String */ 

acTage[7] [3] = {"So","Mo","Di","Mi","Do","Fr","Sa"}; 


time(&lT); 

Tm = localtime(&1T); 

sprintf(acZeitßuffer, "%s %2d.%2d.%4d %02d:%02d", 
acTage[Tm->tm_wday], Tm->tm_mday, Tm->tm_mon + 1, 
Tm->tm_year + 1900, Tm->tm_hour, Tm->tm_min); 
return(acZeitßuffer); 

1 

/* — Daten zweispaltig drucken - */ 

void DruckenAl1 es() 

{ 


INT 

i, j. k, 

/* Zähler */ 


iSeiten; 

/* Anzahl zu druckender Seiten */ 

FILE 

*out; 

/* Druckerhandle */ 


/* Seitenzahl ermitteln */ 
iSeiten = iFileAnz / 58 / 2; 

/* Kanal öffnen und Drucker auf 80 Zeichen/Zeile stellen */ 

Status(200); 

out = fopen("lptl", "w"); 
if (out == NULL){ 

Status(0); Error(9); 
return; 

} 

fprintf(out, "\xlbP"); 

/* Files drucken */ 
for(i =0; i <= iSeiten; i++){ 
fprintf(out, 

" DISVER Magnetkartenverwaltung %-s Seite %d von %d\n\n" 

Zeit(), i +1, iSeiten + 1); 
fprintf(out, 

Name Bytes Karte Name Bytes 

fprintf(out, 

--\n"); 

for(j = 0; j <= 57; j++){ 
k = (2 * i * 58) + j; 
if(k <= iFileAnz) 

fprintf(out, " %—12s %61d %-10s ", 

Fi 1e[k]->acName, Fi 1e [k]->1Bytes, 

Fi 1e[k]—>acDisk); 

eise 

fprintf(out, "%-45s", " "); 
k = ((2 * i + 1) * 58) + j; 
if(k <= iFileAnz) 

fprintf(out, "%-12s %61d %-10s\n", File[k]->acName, 

Fi 1e[k]—>1 Bytes, File[k]->acDisk); 

eise 

fprintf(out, "%-30s\n", " "); 

} 

/* Fußzeile und Seitenvorschub ausgeben */ 
fprintf(out, 

"\n Insgesamt sind %d Files mit %ld Bytes gespeichert\n%c' 


Karte\n") 
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iFileAnz + 1, do_sum(), 12); 

} 

fclose(out); Status(0); 
return; 


/* — Projektmenü auswerten - */ 

void ActionOnProjectMenuQ 

{ 

CHAR cKey; /* Menüauswahl */ 


cKey = Menu(ProjectMenu); 
switch(cKey){ 

case 'n 1 : CleanüpO; ShowFi 1 es(); break; 
case T: FileLaden(); ShowFilesO; break; 

case 's': FileSpeiehern(); break; 

case ' k 1 : DisketteEinlesenQ; SetupFileScreenQ ; 
iFilePtr = iFileAnz - 7; 

ShowFilesO; break; 
case 'ü': FileAbout(); break; 
case 'e 1 : bEnde = 1; break; 
default: break; 

} 

return; 

) 

/* — Sortiermenü auswerten - */ 

void ActionOnSortMenu() 


{ 


CHAR cKey; /* Menüauswahl */ 


cKey = Menu(SortMenu); 


switch(cKey){ 
case * n 1 : 

Status(205); NameSort(iFileAnz); 

case ‘b 1 : 

Status(O); break; 

Status(205); ByteSort(iFi leAnz); 

case 'k': 

Status(O); break; 

Status(205); CardSort(iFileAnz); 

default: 

} 

ShowFilesO; 
return; 

Status(0); break; 
break; 



/* - Editiermenü auswerten - */ 

void ActionOnEdi tMenu() 

{ 

CHAR cKey; /* Menüauswahl */ 


cKey = Menu(EditMenu); 
switch(cKey){ 


case 

'h': 

HauptProgramm(); break; 

case 

V: 

Unterprogramm(); break; 

case 

’e': 

EditAFileO; break; 

case 

' n 1 : 

FileNeu(); break; 

case 

T: 

FileLoeschenO; break; 
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return; 

} 

/* — Optionsmenü auswerten - 

void ActionOnOptionMenu() 

{ 

CHAR cKey; /* Menüauswahl */ 


cKey = Menu(OptionsMenu); 
switch(cKey){ 
case 'a' 


case 'b 1 


case ' c 


default: 


} 

return; 


} 

/* - 
void 
{ 


i i 
i i 


strcpy(acDrive, "A:\\"); 
*0ptionsMenu[2] = 'V 
*0ptionsMenu[3] 
*0ptionsMenu[4] 
break; 

strcpy(acDrive, "B:\\"); 
*0ptionsMenu[2] = ' 1 ; 
*0ptionsMenu[3] = 'V'; 
*0ptionsMenu[4] = 1 '; 
break; 

strcpy(acDrive, "C:\\"); 
*0ptionsMenu[2] = ' '; 
*0ptionsMenu[3] = ' '; 
*0ptionsMenu[4] = 'V; 
break; 
break; 


Hauptmenü auswerten 
ActionOnMainMenu() 


CHAR 


cKey; 


/* Menüauswahl */ 


cKey = Menu(MainMenu); 
switch(cKey){ 

case 1 p 1 : ActionOnProjectMenuQ; break; 

case 's': ActionOnSortMenuQ; break; 

case 'e': ActionOnEditMenu(); break; 

case 'd': DruckenAlles(); break; 

case 'o': ActionOnOptionMenu(); break; 

default: break; 


return; 

} 

/* — Tastendruck auswerten - */ 

void ActionOnKey(cKey, cKeyExt) 

CHAR cKey, /* ASCII-Code der Taste */ 

cKeyExt; /* erweiterter Tastaturcode */ 

( 

if(cKey != 0){ 
switch(cKey){ 

/* Leertaste - Markieren */ 
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if (Fi1e[iFi 1ePtr + iFileCursorPos]->cSelect 
== 1 ) 

File[iFilePtr + iFileCursorPos]->cSelect 
= 0 ; 

eise 

Fi 1e[iFilePtr + iFileCursorPos]->cSelect 
= 1 ; 

ShowFiles(); 
break; 

/* H - Markiertes File zum Hauptprogramm machen */ 
case 104: 

case 72: HauptProgrammO ; break; 

/* U - Markierte Files zum Hauptprogramm addieren */ 
case 117: 

case 85: Unterprogramme); break; 

default: break; 

} 

} 

else{ 

switch(cKeyExt){ 

/* Fl - Hauptmenü */ 

case 59: ActionOnMainMenuQ; break; 

/* Cursor nach oben */ 

case 72: if(iFileCursorPos == 0) 

Fi1eScrol1(UP); 

eise 

iFileCursorPos-; 
break; 

/* Cursor nach unten */ 

case 80: if(iFileCursorPos == 7) 

FileScrol1(DOWN); 

eise 

if (iFilePtr+iFileCursorPos < iFileAnz) 
iFileCursorPos++; 

break; 

/* Bild nach oben (PageUp) */ 

case 73: FileScroll(PAGEUP); break; 

/* Bild nach unten (PageDn) */ 

case 81: FileScroll(PAGEDOWN); break; 

/* Posl (Home) */ 

case 71: FileScroll(HOME); break; 

/* Ende (End) */ 

case 79: FileScroll(END); break; 

default: break; 

} 

} 

return; 

} 

/* — Das Hauptprogramm - 

— (oder was erwarten Sie sonst am Ende des Quel1textes?) - */ 
INT main() 

{ 

CHAR cKey, cKeyExt; /* ASCII- und erweiterter Tastencode */ 
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#ifdef DEBUG 

/* Blockcursor einschalten */ 

Regs.h.ah = 1; Regs.h.ch = 0; 

Regs.h.cl = 7; 
int86(0xl0, &Regs, &Regs); 

#endif 

/* File-Bildschirm aufbauen */ 

SetupFileScreen(); 

/* Variable initialisieren */ 
iFileAnz = -1; iFilePtr = 0; 
bEnde = 0; 

/* Erkennung anzeigen */ 

FileAbout(); 

/* Taste holen und auswerten */ 
do{ 

GetKey(&cKey, &cKeyExt); ActionOnKey(cKey, cKeyExt); 
/* Anzahl der Files und freien Speicher anzeigen */ 
gotoxy(35, 4); printf("%3d", iFileAnz + 1); 
gotoxy(34, 6); printf("%6u", coreleft()); 

/* Cursor positionieren */ 
gotoxy(2, iFileCursorPos + 1); 

}while(bEnde == 0); 

ThisIsTheEndQ; 
exit(O); 


3.3 C-Programmierung am Beispiel des Programms DISVER 

Das komplette Programm zu erläutern, würde den Rahmen dieses Kapitels 
sprengen. Viele Teile sind auch Standardroutinen, die auf allen Rechnern 
ähnlich sind. Deswegen werden in den nächsten Abschnitten nur einige 
interessantere Teile exemplarisch besprochen. Die häufigen Kommentare 
innerhalb des Listings sollen Ihnen das Verständnis der nicht näher 
erläuterten Teile erleichtern. 


3.3.1 Fenstertechnik 

Was zeichnet die Bedienung aller Portfolio-Applikationen aus? Natürlich 
die Fenster- und Menütechnik. Auf die Menütechnik wird im nächsten 
Abschnitt eingegangen. Hier werden wir uns mit dem Grundlegenden 
beschäftigen. Denn: kein Menü ohne ein Fenster, jedenfalls auf dem Port- 
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folio. Allgemein muß ein Programm, das mit Fenstern arbeitet, folgende 
Funktionen bereitstellen: 

- Bildschirmbereich sichern (StoreWindowO) 

- Bildschirmbereich löschen (ClearAreaO) 

- Rahmen zeichnen (DrawBorderO) 

- gesicherten Bildschirmbereich zurückspeichem (CloseWindowO) 

Die entsprechenden Routinen von DISVER stehen in Klammem hinter den 
Punkten. Besprechen wir die einzelnen Funktionen in der obigen Reihen¬ 
folge. Im Listing finden Sie die Funktionen zu Beginn des Listings ab der 
Seite 278. Wenn Sie die Turbo-C-Funktionen durchstöbem, finden Sie 
auch die Funktion windowO . Sie ist zusammen mit anderen Funktionen in 
der Header-Datei CONIO.H zusammengefaßt. Die Beschreibungen der ein¬ 
zelnen Funktionen lassen auf viel Erleichterung bei der Fensterprogram¬ 
mierung hoffen. Leider zeigen die Befehle wenig Wirkung auf dem Portfolio. 
cprint/0 zum Beispiel zeigt keine Ausgabe auf dem Bildschirm. Selbst wenn 
direkt nach dem Funktionsaufruf mittels DIP-Interrupt 61h der Bild¬ 
schirminhalt refresht wird, passiert nichts auf dem Bildschirm. Hingegen 
funktionieren clrscr (), getchO , gotoxyO und kbhit() ohne Beanstandung. 
Funktionen, die ebenfalls nicht oder nur eingeschränkt funktionieren 
können, sind die conio- Funktionen, die Bildschirmattribute setzen. 

StoreWindowO sichert den Inhalt eines rechteckigen Bereichs des Bild¬ 
schirms in eine Puffervariable. Zuerst einmal müssen der Funktion die 
Koordinaten des Bildschirmbereichs übergeben werden. Das sind speziell 
die x- und y-Koordinate der linken oberen Ecke sowie die Breite und Höhe 
des Bereichs. Die Angabe der Breite und Höhe ist für die weitere 
Verarbeitung innerhalb der Funktion einfacher, als wenn der Bereich 
durch die linke obere und die rechte untere Ecke festgelegt würde. Aus 
den letzten Angaben wird die Größe des nötigen Pufferspeichers berechnet. 
Um auch die Koordinaten des Bereichs mitspeichem zu können, müssen 
zusätzlich vier Byte mehr reserviert werden. Anschließend werden die 
Koordinaten in den Pufferspeicher gebracht. Für die Sicherung des Bild¬ 
schirminhalts ist es nötig, mit MK_FP0 einen FAR-Zeiger in den Bild¬ 
schirmspeicher zu definieren. Damit der Zeiger auf den richtigen Offset 
zeigt, muß auf die Organisation des Bildschirmspeichers eingegangen 
werden. Diese Organisation ist in allen Bildschirmmodi des Portfolio gleich 
und mit derjenigen der Monochrom-Karte des PC identisch. Der Speicher 
liegt im Segment BOOOh. Da jede Zeile 80 Zeichen enthält und für jedes 
Zeichen der ASCII-Code und das Attribut gespeichert werden, besteht jede 
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Zeile im Speicher aus 160 Byte. Deswegen berechnet sich der Offset eines 
Zeichens mit Hilfe der im Listing zu findenden Formel 

Offset = (y * 160) + (x * 2) 

Für jede Zeile des Bereichs wird der Offset der ersten Spalte berechnet, 
und ab dort werden doppelt soviele Bytes in den Pufferspeicher gebracht, 
wie durch die Breite des Bereichs angegeben sind. Abschließend muß nur 
noch der Zeiger auf den Pufferspeicher an die aufrufende Funktion 
zurückgegeben werden. 

Das Löschen eines Bildschirmbereichs mit ClearAreaQ funktioniert ähn¬ 
lich. Wenn der Zeiger in den Bildschirmspeicher analog zur vorigen Funk¬ 
tion berechnet ist, muß nur noch der entsprechende Wert direkt in den 
Speicher geschrieben werden. In diesem Fall soll der Bildschirm gelöscht 
werden, der Bereich wird also mit Leerzeichen gefüllt. Um das Ganze mög¬ 
lichst fix zu machen (der Portfolio ist ja nicht gerade der Schnellste), 
werden Zeichen und Attribut nicht einzeln geschrieben, sondern beide 
Werte zu einem Integer-Wert zusammengefaßt und geschrieben. Sie finden 
das Listing dieser Funktion auf Seite 279. Nun hat aber die Ansteuerung 
des LCD-Bildschirms eine Besonderheit. Wenn Sie direkt den Inhalt des 
Bildschirmspeichers ändern, sehen Sie danach keine Änderung in der 
Anzeige. Erst nach Aufruf der Funktion 12h des DIP-Interruptes 61h wird 
der Bildschirm refresht. Falls Sie die Programmentwicklung auf dem PC 
betreiben und das Programm auch dort ausprobieren und debuggen, 
bevor Sie es auf den Portfolio kopieren, stellt diese Besonderheit eine 
Gefahrenquelle ersten Ranges dar. Auf dem PC ist der Interrupt nicht 
belegt und verursacht beim Aufruf einen Systemabsturz, was nicht die 
feine englische Art ist. Leider werden beim Booten des PC die unbenutzten 
Interrupt-Vektoren auf 0000:0000 gelegt. Besser wäre, wenn sie auf einen 
IRET-Befehl zeigen würden. Dann würde bei Interrupt-Aufruf sofort wieder 
in das Programm zurückgekehrt, zwar ohne Wirkung, aber auch ohne 
Absturz. Um diese Hürde zu umgehen, ist zu Beginn des Listings das 
Symbol DEBUG definiert. Solange dieses Symbol definiert ist, wird durch 
bedingte Kompilierung der Interrupt-Aufruf übergangen. Erst wenn das 
Programm auf den Portfolio übertragen werden soll, wird das Symbol ent¬ 
fernt und damit der Interrupt aufgerufen. 

Nachdem der Bildschirmbereich gesichert und gelöscht ist, fehlt zum 
Fenster nur noch der Rahmen. Er wird mittels DrawBorderO (im Listing ab 
Seite 279) gezeichnet. Auch hier wird wieder ein Zeiger auf die linke obere 
Ecke des Bildschirmbereichs gebraucht. Ab dieser Position werden dann 
nacheinander mit vier /or-Schleifen die obere, rechte, untere und linke 
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Kante gezeichnet. Dazwischen dürfen natürlich die Ecken nicht vergessen 
werden. Um Programmzeilen zu sparen, sind innerhalb der Funktion 
direkt die ASCII-Werte der einzelnen Zeichen benutzt worden. Übersicht¬ 
licher wird es durch Verwendung von üdefrne- Anweisungen, die die ASCII- 
Werte durch Symbole ersetzen, die besser verständlich sind. Am Ende der 
Funktion findet sich wieder das Refreshen des Bildschirms. 

Damit Sie nicht immer alle drei Funktionen hintereinander aufrufen müs¬ 
sen, wird dies in der Funktion OpenWindowO zusammengefaßt. Konnte 
der Pufferspeicher reserviert werden, liefert die Funktion den Zeiger auf 
den Pufferspeicher zurück. Ist nicht genügend Speicher frei, wird der Bild¬ 
schirminhalt nicht gesichert, kein Fenster geöffnet und ein NULL-Zeiger 
zurückgegeben. 

Was geöffnet wurde, muß auch wieder zu schließen sein. Also ist eine 
Funktion CloseWindow() vonnöten, die ein offenes Fenster auch wieder 
schließt. Auf Seite 278 sehen Sie im Listing, daß das Schließen des Fen¬ 
sters nichts weiter ist als das Zurückschreiben des gesicherten 
Bildschirminhalts und abschließendem Bildschirm-Refresh. 

Auf den Routinen OpenWindowO und CloseWindowO bauen die Funk¬ 
tionen Errorf) und Status() auf, die eine Fehler- bzw. Statusmeldung inner¬ 
halb eines neuen Fensters auf dem Bildschirm ausgeben. 

Was hier im Programm realisiert wurde, können nur die grundlegendsten 
Routinen einer Fensterverwaltung sein. Sie können ein Fenster öffnen und 
wieder schließen. Doch was passiert, wenn Sie mehrere Fenster nach¬ 
einander öffnen und sie nicht wieder in der umgekehrten Reihenfolge 
schließen? Chaos auf dem Bildschirm natürlich. Was fehlt, sind Routinen, 
die genau dieses verhindern und die Fenster innerhalb eines Stapels ver¬ 
walten oder auch ermöglichen, Fenster, die im Hintergrund liegen, in den 
Vordergrund zu bringen und umgekehrt. Solange Sie dieses nicht selbst 
programmieren, müssen Sie die Verwaltung der Fenster übernehmen und 
auf die obigen Probleme achten. 


3.3.2 Menüprogrammierung 

Nachdem wir jetzt die Fenster haben, soll im nächsten Schritt zur 
Menüprogrammierung übergegangen werden. Atari hat seinen ein¬ 
gebauten Applikationen eine weitgehend einheitliche Benutzerführung 
gegeben. Um die Gewöhnung an ein neues Programm möglichst einfach zu 
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machen, sollten alle selbsterstellten Programme ähnlich mit ihrem 
Benutzer kommunizieren. 

Die Menüroutine sollte möglichst allgemein verwendbar sein und Fehl¬ 
bedienungen von vornherein abfangen. Was braucht sie dazu an Infor¬ 
mationen vom Programm? Zunächst natürlich, welche Punkte das Menü 
enthalten soll. Da die Menüauswahl alternativ auch über Eingabe von 
Buchstaben erfolgen soll, müssen auch diese bekannt sein. Damit hätten 
wir schon fast alle nötigen Informationen. Zusätzlich wird im Beispiel¬ 
programm noch der Menütitel mit hinzugenommen. Alle Informationen 
werden in einem zweidimensionalen CHAR-Feld zusammengefaßt und der 
Zeiger auf das Feld der Menüroutine als Argument mitgegeben. Sie finden 
gleich zu Beginn des Listings die Definitionen für alle Menüs des Beispiel¬ 
programms. Jedes Feld enthält zuerst einen String mit allen erlaubten 
Tastendrücken, dann den Titel des Menüs und zuletzt alle Menüpunkte. 
Nach Aufruf der Funktion MenuO wird das übergebene Menü angezeigt 
und der ASCII-Wert des Kennbuchstabens des gewählten Menüpunktes 
zurückgegeben. Anschließend muß nun die Menüauswertung folgen und 
Aktionen entsprechend dem Menüpunkt in die Wege leiten. 

Was geschieht aber nun innerhalb der Menu()- Funktion? Schauen Sie sich 
dazu die Funktion im Listing ab Seite 297 an. Zuerst müssen die Koordi¬ 
naten für das zu öffnende Fenster festgelegt werden. Die Höhe des 
Fensters wird durch die Anzahl der Menüoptionen festgelegt, die wiederum 
aus der Länge des Strings aller erlaubten Tasteneingaben bestimmt 
werden kann. Aus dem acht Zeilen hohen Bildschirm des Portfolio ergibt 
sich dann auch gleich die Maximalzahl von sechs Menüpunkten, da zwei 
Zeilen für den Fensterrand benötigt werden. Theoretisch wären auch 
längere Menüs möglich, aber dann befänden sich immer einer oder 
mehrere Menüpunkte außerhalb des Bildschirms und man müßte den 
Bildschirm scrollen, um alle Menüpunkte überblicken zu können. Die 
Übersichtlichkeit würde darunter leiden, und welcher Benutzer will schon 
gerne ständig hin- und herscrollen, um einen Punkt aus einem Menü aus¬ 
zuwählen. 

Wenn man die Anzahl der Menüpunkte hat, ist es ein leichtes, den breite¬ 
sten Menüpunkt zu suchen und die Breite des Fensters entsprechend 
größer zu wählen. Durch die zentrierte Ausgabe des Menüs ergeben sich 
automatisch die Berechnungsvorschriften für die Koordinaten der linken 
oberen Ecke des Fensters. Danach wird das Fenster geöffnet und der 
Menütitel zentriert in die obere Kante des Rahmens geschrieben. Die fol¬ 
gende /or-Schleife gibt die Menüpunkte aus. Bevor die große Schleife mit 
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dem Holen und Auswerten von Tastendrücken beginnt, müssen noch zwei 
Variable auf ihre Anfangswerte gesetzt werden. iMertuCursorPos enthält, 
wie ihr Name schon sagt, die Nummer des Menüpunkts, auf dem der 
Cursor gerade steht. Sie wird zur Auswertung und richtigen Positionierung 
des Cursors gebraucht. cChar dient im weiteren zur Aufnahme des Rück¬ 
gabewerts. 

Innerhalb der Schleife wird der Cursor auf die erste Spalte des aktuellen 
Menüpunktes gesetzt, zu Beginn ist das der oberste. Als zweiter Schritt 
wird mit Hilfe der GetKeyO -Funktion auf einen Tastendruck gewartet und 
der ASCII-Wert sowie der erweiterte Tastaturcode der gedrückten Taste 
geholt. Die Funktion findet sich im Listing auf Seite 280 und besteht im 
wesentlichen nur aus dem Aufruf der Funktion 0 des Tastatur-Interrupts 
16h. Die Rückgabe des erweiterten Tastaturcodes ist notwendig, da die 
Betätigung der Cursor- oder anderer Sondertasten einen ASCII-Wert von 0 
liefern und dadurch nicht zu differenzieren sind. Die Funktionen des 
Tastatur-Interrupt sind auf dem Portfolio identisch, so daß in diesem 
Punkt keine Schwierigkeiten bei der Umsetzung von PC-Programmen auf- 
treten. 

Anschließend wird ausgewertet, welche Taste gedrückt wurde. Relevant 
sind dabei nur die Tasten | Esel , [Return] , (T) und (T|. Am einfachsten ist die 
Reaktion auf [ Esc ) , es wird nur die Funktion mit der Rückgabe des Wertes 
27 als ASCII-Wert der Taste beendet. Falls | gedrückt wurde, muß 
bestimmt werden, auf welchem Menüpunkt der Cursor gerade steht und 
diejenige Taste in die Rückgabevariable gebracht werden, die im String der 
erlaubten Tasten mit dem gewählten Menüpunkt korrespondiert. Sollte 
eine andere Taste gedrückt worden sein, die einen ASCII-Wert ungleich 0 
besitzt, wird mit der strchrfl-Funktion gesucht, ob die Taste im String der 
erlaubten Tasten vorkommt. Ist dies der Fall, wird diese Taste in die 
Rückgabevariable kopiert und die Funktion beendet. Anderenfalls wird die 
Schleife erneut durchlaufen und eine neue Taste geholt. Wurde eine Taste 
gedrückt, deren ASCII-Wert gleich 0 ist, muß der erweiterte Tastaturcode 
ausgewertet werden. In diesem Zweig der Schleife wird nur die (T)- oder 
(T) -Taste geprüft. Entsprechend der Taste wird die aktuelle Cursor¬ 
position, die sich in der Variablen iMertuCursorPos findet, erniedrigt oder 
erhöht. Natürlich müssen die Positionen abgefangen werden, die den 
Cursor über den ersten oder unter den letzten Menüpunkt stellen würden. 
Verlassen werden kann die Schleife nur durch eine der oben vorgestellten 
Möglichkeiten. Als letztes wird das Fenster wieder geschlossen und der 
aktuelle Ausschnitt der Dateiliste neu angezeigt. Das erneute Anzeigen hat 
seinen Grund in möglichen Änderungen der Dateiliste durch Auswahl 
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eines Menüpunkts, die innerhalb des gesicherten Bildschirmbereichs noch 
nicht enthalten sind. 

Eine mögliche Menüauswertungsroutine finden Sie innerhalb der Funk¬ 
tion ActionOnProjectMenuO (im Listing auf Seite 307), die das Hauptmenü 
des Dateibildschirms auswertet. Die Mena()~ Funktion wird aufgerufen und 
der Rückgabewert cKey innerhalb der folgenden switch- Anweisung zum 
Verzweigen zu den verschiedenen Aktionen benutzt. 


3.3.3 Tastatureingabe 

Die Auswahl von Programmfunktionen mittels Menüauswahl ist nun mög¬ 
lich. Jetzt fehlt nur eine komfortable Eingabe von Zahlen- oder Zeichen¬ 
ketten über die Tastatur. C bietet zwar mit der scartfO- Funktion eine 
universelle Eingabefunktion, aber weder die Länge der Eingabe läßt sich 
begrenzen, noch ist ein weitergehendes Editieren der Eingabezeile möglich. 
Wenn Sie zum Beispiel eine Maske zur Eingabe einiger Werte in eine 
Datenbank programmieren wollen, zerstört jede Eingabe über scanf() , die 
länger als vorgesehen ist, Ihre Maske. Hier muß also eine eigene Routine 
diese Arbeit übernehmen. 

Eine Möglichkeit, wie eine solche Routine aussehen könnte, liefert Ihnen 
die Funktion InputQ ab Seite 280 im Listing. Die wichtigste Funktion, die 
für eine Tastatureingabe benötigt wird, ist das Auswerten eines Tasten¬ 
druckes. In DISVER ist dies durch die Funktion GetKeyO verwirklicht, die 
Sie im Listing direkt vor Input() finden. Die Funktion liefert dann den 
ASCII-Wert und den erweiterten Tastaturcode zurück. Entsprechend 
diesen beiden Werten muß dann reagiert werden. In der folgenden Tabelle 
sind die wichtigsten Tastaturcodes zusammengefaßt: 


Taste 

erweiterter Code 

0 

72 

0 

80 

0 

75 

0 

77 

|Bi 1 dt) 

73 

| BilcH| 

81 

(Posl) 

71 
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(Ende | 


79 

83 

82 


| Entf ] 


I Einfg) 


dD - fFiöi 


59-68 


Die Funktion InputO wird mit den Koordinaten der linken oberen Ecke des 
Eingabefeldes, der Breite des Feldes und einem String aufgerufen. Der 
String enthält bei der Rückkehr die eingegebene Zeichenkette und kann 
bei Aufruf der Funktion einen Vorgabewert enthalten, der nur noch 
editiert werden braucht. Der blinkende Blockcursor des Portfolio wird als 
Kennzeichnung dort positioniert, wo das nächste eingegebene Zeichen 
eingefügt wird. Damit kommen wir zu einem Merkmal der Eingaberoutine: 
Sie arbeitet nur im Einfüge-Modus, d.h. neu eingegebene Zeichen werden 
an der Cursorposition eingefügt und überschreiben die bereits vorhan¬ 
denen Zeichen nicht. Eine mögliche Erweiterung der Routine könnte also 
darin bestehen, mit Hilfe der | Ei nfg| -Taste zwischen Einfüge- und 
Ersetzungs-Modus hin- und herzuschalten. Als Kennzeichnung des jewei¬ 
ligen Modus könnte parallel zwischen einem Block- und einem Strich¬ 
cursor umgeschaltet werden. 

Gehen wir einmal die Eingaberoutine Schritt für Schritt durch. Zu Beginn 
wird Speicher für den Vorgabewert und die Eingabe reserviert. Da zu 
jedem C-String als Endemarkierung der ASCII-Wert 0 als Abschluß des 
String gehört und außerdem der Eingabecursor am Ende der Zeichenkette 
auch noch Platz braucht, müssen für beide Symbole zwei Byte mehr Platz 
belegt werden, als die Breite angibt. Nachdem der Vorgabewert in den 
gerade belegten Pufferspeicher gerettet wurde, wird ein »relativer Cursor« 
iRelCursor initialisiert, der die Position, relativ zum Beginn der Eingabe¬ 
zeile, enthält, an der das nächste Zeichen eingefügt wird. Der Cursor wird 
auf das erste Zeichen des Eingabefeldes gestellt und der Vorgabewert in 
den Eingabepuffer kopiert. Als letzte Vorbereitung überschreibt die Funk¬ 
tion das Eingabefeld mit Leerzeichen. Da zur Übersetzungszeit des 
Programms nicht bekannt ist, wie breit das jeweilige Eingabefeld ist, wird 
mit dieser Konstruktion der print/Ö-Argumente auch die Breite der Forma¬ 
tierung einer Variablen entnommen. Dies ist eine eher ungewöhnliche 
Konstruktion, die nicht so oft in C-Listings zu sehen ist, aber zeigt, was 
mit dem printfQ -Funktion alles machbar ist. 
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Innerhalb der Eingabeschleife wird zuerst die Länge des String im 
Eingabepuffer bestimmt, um später bestimmen zu können, ob noch Platz 
für die weitere Eingabe eines Zeichens ist. Der aktuelle Inhalt des 
Eingabepuffers wird ausgegeben und der nächste Tastendruck geholt. 
Anschließend folgt die Auswertung der Tastencodes, getrennt nach Tasten, 
die einen ASCII-Wert zurückliefem und denjenigen, die nur einen erwei¬ 
terten Tastaturcode besitzen. Auf die Auswertung wollen wir etwas näher 
eingehen. Am einfachsten läßt sich auf die Tasten 0, 0» I Posi 1 und [ Endel 
reagieren. Der Eingabecursor wird so lange nach links bzw. rechts bewegt, 
bis er am Anfang bzw. Ende der Eingabezeile angelangt ist. Die Tasten 
IPosl 1 und |Endel bringen ihn direkt dahin. 

Etwas mehr geistige Anstrengung muß bei der | Entfl -Taste aufgewandt 
werden. Was gemacht werden soll, ist sofort klar: Solange der Eingabe¬ 
cursor nicht hinter dem letzten Zeichen steht, wird das Zeichen unter dem 
Cursor gelöscht und alle rechts davon stehenden Zeichen werden heran¬ 
gezogen. In der Routine brauchen nur alle rechts vom Eingabecursor 
stehenden Zeichen um eine Stelle nach links kopiert werden. Turbo C 
stellt für diese Aktion zwei Funktionen zur Verfügung, memcpyO und 
memmove[). Beide kopieren Bytes von einer Ecke des Speichers zur 
anderen. Sollten sich aber Quell- und Zielbereich überlappen, muß man 
aufpassen. Liegt, wie hier, der Zielbereich vor dem Quellbereich, muß die 
Funktion memcpyO bemüht werden. Für den umgekehrten Fall, wenn der 
Zielbereich hinter dem Quellbereich liegt, ist dann memmoveO zuständig. 
Damit ist die Auswertung der Tasten, die einen erweiterten Tastaturcode 
liefern, beendet. 

Bei den Tasten, die einen ASCII-Wert besitzen, wird zwischen den Tasten 
IEsel , [Backspace| , [Return 1 , sowie allen anderen Tasten unterschieden. Das 
Drücken der | Esel -Taste bewirkt das Kopieren des Vorgabewerts in den 
Eingabepuffer sowie das Setzen des Flags zum Verlassen der Schleife und 
des Flags zum Erkennen des Abbruchs. Wird die Eingabe durch Drücken 
der | Esc I -Taste abgebrochen, liefert InputQ den Wert 1 zurück und enthält 
wieder den Vorgabewert im Eingabestring, der der Funktion am Anfang 
übergeben worden ist. Auf [ Backspace | wird ähnlich reagiert, wie zuvor bei 
| Entfl , bis auf den Unterschied, daß das Zeichen links vom Eingabecursor 
gelöscht wird. Die Argumente der memcpyö-Funktion sind deshalb auch 
fast die gleichen wie zuvor. Bei [ Return | wird im Eingabepuffer das 
angehängte Leerzeichen wieder gelöscht und das Flag zum Verlassen der 
Schleife gesetzt. Im Gegensatz zu | Esc) bleibt hier der Rückgabewert in 
iEscape auf 0, um dem aufrufenden Programm mitzuteilen, daß die Ein¬ 
gabe ordnungsgemäß abgeschlossen wurde. 
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Bis jetzt wurden alle Sondertasten abgehandelt, aber es wurde nichts über 
die Tasten gesagt, die die Eingabe eigentlich ausmachen. Das geschieht 
nämlich erst hier am Ende der Schleife. Um die Eingabezeile nicht durch 
irgendwelche Steuerzeichen zu verunstalten, wird geprüft, ob der ASCII- 
Wert der Taste größer als 31 ist und ob noch Platz für ein weiteres Zeichen 
ist. Damit das neue Zeichen eingefügt werden kann, muß der Teil des 
Eingabepuffers um ein Zeichen nach hinten kopiert werden, der ab der 
Position des Eingabecursors steht. Hier kommt nun zum Tragen, was 
vorhin über das Kopieren von Speicherinhalten gesagt wurde. Würde mit 
Hilfe von memcpyO kopiert, bestünde der kopierte Teil des Eingabepuffers 
aus lauter gleichen Zeichen. Für diese Art des Kopierens muß die 
memmoveO -Funktion verwandt werden. Der Unterschied beider Funk¬ 
tionen liegt in der Frage, von welchem Byte aus in welche Richtung der 
Quellbereich kopiert wird. Falls Sie diese Routinen lieber selber program¬ 
mieren wollen, finden Sie im anschließenden Listing einen Vorschlag. 

void *memmove(void *dest, const void *source, size_t number) 

{ 

INT i; /* Zähler */ 

CHAR *src, *des; /* Zeiger auf Quell- und Ziel bereich */ 

src = (CHAR *)source; 

des = (CHAR *)dest; 

for (i =0; i < number; i++) 

*dest[i] = *source[i]; 
return(*dest); 


void *memcpy(void *dest, const void *source, size_t number) 

( 

INT i; /* Zähler */ 

CHAR *src, *des; /* Zeiger auf Quell- und Ziel bereich */ 

src = (CHAR *)source; 

des = (CHAR *)dest; 

for (i = number - 1; i >= 0; i-) 

*dest[i] = *source[i]; 
return(*dest); 

} 

Zum Schluß wird das neu eingegebene Zeichen an die gerade frei¬ 
gewordene Stelle kopiert. Sie können, wenn Sie wollen, weitere Zeilen in 
die switchQ -Anweisung hängen, um auf andere Tasten reagieren zu 
können. Denkbar ist zum Beispiel ein weiterer Übergabeparameter, der es 
ermöglicht, nur noch Ziffern einzugeben und bei Eingabe anderer Zeichen- 
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tasten einen Warnton auslöst. Sie müssen dazu nur die if ()~Anweisung 
hinter der de/auk:-Marke entsprechend ändern. 

Innerhalb der Input()-Funktion wird abschließend der Eingabepuffer ange¬ 
zeigt und in den Rückgabestring kopiert. Was bei sauberer Program¬ 
mierung nicht fehlen darf, ist die Freigabe aller dynamisch belegten 
Speicherbereiche. Womit wir auch gleich beim Thema des nächsten 
Abschnitts wären, einer etwas intelligenteren Speicherverwaltung. 


3.3.4 Speicherverwaltung 

Gerade auf einem Rechner wie dem Portfolio mit wenig Hauptspeicher 
muß der Speicherplatz so effektiv wie möglich verwendet werden. DISVER 
belegt seinen benötigten Speicher dynamisch zur Laufzeit und führt eine 
Liste mit Zeigern auf die belegten Speicherbereiche. Gebraucht wird der 
Speicher für die Dateiliste, die Directory-Liste und eine interne Liste aller 
Unterverzeichnisse. Für jeden Eintrag wird Speicher belegt und der Zeiger 
auf den Bereich in den Listen FiletL Dir[] und DirStack[] abgespeichert. Das 
Problem besteht jetzt darin, daß C bei der Suche nach freiem Speicher 
nicht am Speicheranfang beginnt, sondern von der Position weitersucht, 
an der der letzte Bereich belegt wurde. Diese Methode der Speicher¬ 
belegung ist auch unter dem Name »Next fit« bekannt. An sich ist daran 
nichts Schlechtes, denn die Suche beginnt wieder am Anfang, wenn bis 
zum Ende kein passender Speicherblock mehr frei ist. Jedoch liefert die 
Funktion coreleftO falsche Werte über den verbleibenden Speicherplatz 
zurück. Anhand des restlichen Platzes können Sie aber sehen, ob noch 
Dateien eingelesen werden können. Also muß der Speicherplatz selbst so 
verwaltet werden, daß keine Lücken entstehen. 

Nach dem Starten des Programms wird gewöhnlich die Dateiliste geladen 
und dabei für sie Speicher reserviert. Danach können die Directories ein¬ 
gelesen werden. Die dabei entstehende Directory-Liste benötigt natürlich 
auch Speicher. Zusätzlich wird für die Namen der einzelnen Unter¬ 
verzeichnisse eine interne Liste angelegt, die genauso irgendwo abgelegt 
werden muß. Sobald aus dem Menüpunkt Karte einiesen zurückgekehrt 
wird, gibt DISVER auch den Speicher dieser beiden letzten Listen wieder 
für weitere Benutzung frei. Wird aber aus der Directory-Liste mindestens 
ein neuer Eintrag in die Dateiliste übernommen, wird Speicher benötigt, 
der hinter den beiden Listen reserviert wird. Kehrt man nun zum Datei¬ 
bildschirm zurück, gibt DISVER den Speicher der Directory- und der 
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internen Liste zurück. Dieser Speicherblock ist wieder frei, kann aber 
nicht gleich wieder verwendet werden, da C, wie oben gesagt, ab der 
letzten Position weitersucht, an der Speicher belegt wurde und das ist, in 
diesem Beispiel, der neue Eintrag der Dateiliste. So schnell ist eine Lücke 
in der Speicherbelegung entstanden. 

DISVER löst dieses Problem durch die Funktion AllocEntryO , die im Listing 
ab Seite 283 steht. Sie besteht aus drei nahezu identischen Teilen für die 
drei Listen File[], Dir[] und DirStack[], die die Zeiger auf die oben beschrie¬ 
benen Speicherbereiche enthalten. Die Philosophie, die hinter der Routine 
steht, ist folgende. Am Anfang wird Speicher ganz normal mit calloc() 
belegt. Der Trick beginnt, wenn Speicher wieder freigegeben werden soll. 
Der Speicherbereich wird nämlich nicht an DOS zurückgegeben, sondern 
verbleibt belegt und wird erst am Ende des Programms komplett zurück¬ 
gegeben. Fordert also DISVER Speicher für einen Listeneintrag an, wird 
AllocEntryO mit der gewünschten Position des Eintrags innerhalb der 
jeweiligen Liste und einer Kennziffer zur Unterscheidung der Listen aufge¬ 
rufen. Danach wird geprüft, ob bereits vorher schon einmal Speicher für 
diesen Eintrag belegt worden ist und, ob die gewünschte Position nicht 
hinter dem Listenende liegt, das durch die Symbole MAXFILES , MAXDIRS 
bzw. MAXDIRSTACKS markiert ist. Treffen diese Bedingungen nicht zu, wird 
Speicherplatz für einen neuen Eintrag belegt. Ist innerhalb der Zeigerliste 
kein Platz mehr frei, erscheint eine Fehlermeldung. 

Das vernünftige Arbeiten dieser Methode setzt aber voraus, daß innerhalb 
der Listen keine Lücken entstehen, so daß neue Einträge immer an das 
Ende der Liste gehängt werden müssen. DISVER sichert dies dadurch, daß 
der gelöschte Eintrag nicht einfach als gelöscht gekennzeichnet wird und 
trotzdem in der Liste verbleibt, sondern daß alle Einträge der Liste hinter 
dem zu löschenden Eintrag um eine Position nach vorne kopiert werden. 
In diesem Zusammenhang muß zwischen den Variablen iFileAnz und 
iFilesTop , iDirAnz und iDiiTop , sowie iDirStackAnz und iDirStackTop unter¬ 
schieden werden. Die Variablen, die auf »Anz« enden, enthalten die Anzahl 
der Einträge, die sich momentan in der Liste befinden, während die Varia¬ 
blen, die auf »Top« enden, kennzeichnen, für wie viele Einträge bereits 
Speicher reserviert wurde. Dabei ist die letzte Zahl immer größer oder 
gleich der Anzahl der Listeneinträge. 

Mit dieser Methode der Speicherverwaltung zeigt Ihnen coreleftQ die rich¬ 
tige Anzahl freier Bytes im Speicher und Sie können selbst abschätzen, ob 
Sie noch Platz für weitere Listeneinträge haben. 
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3.3.5 Einbindung von Assembler-Routinen 

Prinzipiell ist die Einbindung von Assembler-Routinen in C ähnlich ein¬ 
fach wie in Pascal. Es gibt dabei aber einige Stolpersteine, die zu beachten 
sind. Da seien als Beispiele zuerst einmal das Speichermodell und die 
Unterscheidung von Groß- und Kleinschreibung genannt. 

Am Beispiel der im Pascal-Kapitel vorgestellten Routine zum Sichern und 
Zurückschreiben von Bildschirminhalten sollen die Unterschiede demon¬ 
striert werden. Bezüglich der Schreibweise ist es notwendig, allen 
Assembler-Funktionen einen Unterstrich (_) voranzustellen. Außerdem 
müssen Sie auf die genaue Schreibweise achten, da C im Gegensatz zu 
Pascal »test« und »TEST« als zwei vollkommen unterschiedliche Symbole 
wertet. 

IDEAL ; Ideal-Modus des Turbo Assemblers einschalten 

MODEL SMALL ; Speichermodell = SMALL wählen 

; SAVE.ASM : Speichert Bildschirmausschnitt in Pointer-Variable 

; Autor: Frank Riemenschneider 

; Anpassung an Turbo C: Michael Schuschk 

CODESEG 

DEBUG equ 1 

PUBLIC _Save 
PROC _Save FAR 

ARG spseg: word, spofs: word, groesse: word, xl: word, yl: word, 
x2: word, y2: word 


push bp 
mov bp, sp 
push ax 
push bx 
push cx 
push si 
push di 
push ds 
push es 

mov ax,[spseg] 
mov ds,ax 
mov di,[spofs] 

;Speicheradresse Pointer laden 

mov ax,[di+2] 

;Segment Speicherbereich holen 

mov es,ax 
mov di,[di] 

;0ffset Speicherbereich holen 

mov ax,[groesse] 

;Größe reservierter Bereich 

cid 

;immer inkrementieren 

stosw 

;spei ehern 
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mov ax, [yl] 
mov bx, 160 
mul bx 

jStartadresse Video-RAM berechnen: 

mov bx,[xl] 
shl bx,l 

; Yl*160+Xl*2 

add ax,bx 
mov si,ax 

;= Offset 

mov ax, OBOOOh 
mov ds,ax 

jSegmentadresse Videoram 

mov ax, [xl] 
stosw 

mov ax,[yl] 

;Koordinaten abspeichern 

stosw 

mov ax, [x2] 
sub ax,[xl] 

;(x2-xl+l) Bytes in x-Richtung 

inc ax 
mov bx,ax 

jmerken und 

stosw 

jabspeichern 

mov ax,[y2] 
sub ax,[yl] 
inc ax 

;(y2-yl+l) Bytes in y-Richtung 

stosw 

jabspeichern 

mov cx,ax 

;Als Zähler setzen 

Loopl: 
push cx 
push si 
mov cx,bx 

jAnzahl x-Bytes holen 

rep movsw 

jSpeicherworte kopieren 

pop ax 
add ax,160 

jNeue Zeile anfangen 

mov si,ax 
pop cx 
loop Loopl 

jNächste Zeile 

pop es 
pop ds 
pop di 
pop si 
pop cx 
pop bx 
pop ax 
mov sp, bp 
pop bp 
ret 

ENDP 

; LOAD.ASM : Lädt Bi 

ldschirmdaten aus Pointer-Variablen 

J 

; Autor: 

Frank Riemenschneider 

; Anpassung an Turbo 

C: Michael Schuschk 
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PUBLIC _Load 
PROC _Load FAR 

ARG speseg: word, speofs: wörd 


push bp 
mov bp, sp 
push bx 
push cx 
push si 
push di 
push ds 
push es 

mov ax,[speseg] 

mov ds,ax 

mov si,[speofs] 

mov ax,[si+2] 

mov si,[si] 

mov ds,ax 

cid 

lodsw 

push ax 

lodsw 

mov bx,ax 

lodsw 

mov cx, 160 
mul cx 
shl bx,l 
add ax,bx 
mov di,ax 
mov ax, OBOOOh 
mov es,ax 
lodsw 
mov bx,ax 
lodsw 
mov cx,ax 
Loop2: 
push cx 
push di 
mov cx,bx 
rep movsw 
pop ax 
add ax,160 
mov di,ax 
pop cx 
loop Loop2 
IFNDEF DEBUG 
mov ah,18 
int 97 
ENDIF 
pop ax 
pop es 
pop ds 
pop di 
pop si 


Speicheradresse Pointer laden 
jSegment Speicherbereich holen 
;0ffset Speicherbereich holen 


;Größe reservierter Speicherbereich holen 
;und merken 
;x-Koordinate holen 

;y-Koordinate holen 

Startadresse Video-RAM berechnen: 

;Yl*160+Xl*2 

;= Offset 

Segmentadresse Videoram 
;Anzahl x-Bytes pro Zeile holen 
;Als Zähler setzen 
;Anzahl y-Bytes pro Zeile holen 


;Anzahl x-Bytes holen 
Speicherworte kopieren 

;Neue Zeile anfangen 

;Nächste Zeile 
;Bildschirm refreshen 

;Bereichsgröße zurückliefern 
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pop cx 
pop bx 
mov sp, bp 
pop bp 
ret 
ENDP 

END 

Der Körper der beiden Funktionen ist vorher identisch. Geändert hat sich 
nur Anfang und Ende der Routinen. Da C mehrere Speichermodelle kennt, 
ist es notwendig, daß die Assembler-Funktion das gleiche Modell benutzt 
wie das C-Programm. Die vereinfachte Schreibweise der PROC -Anweisung 
läßt der Turbo Assembler nur für das Modell TPASCAL zu, so daß bei allen 
anderen Modellen auf die ARG-Direktive zurückgegriffen werden muß, um 
auf die Argumente zugreifen zu können. Auch dafür sind die Zeilen 

push bp 
mov bp, sp 


zu Beginn der Prozedur und 

mov sp, bp 
pop bp 

am Ende nötig. Der Turbo Assembler ersetzt zur Übersetzungszeit die 
indirekte Adressierung der Argumente durch eine Adressierung relativ 
zum Basiszeiger BP. 

Um die Module zu einem Programm zu verbinden, assemblieren bzw. 
kompilieren Sie die Quelltexte getrennt mit dem Turbo Assembler bzw. der 
Kommandozeilenversion des Turbo-C-Compilers, TCC.EXE, und binden 
mit TUNK die Objektdateien zu einer EXE- oder COM-Datei. Falls Sie mit 
der integrierten Entwicklungsumgebung arbeiten, müssen Sie eine 
Projektdatei anlegen und benutzen, die den Namen Ihres C-Quelltextes 
und den Namen der Objektdatei mit dem Assembler-Modul, jeweils in 
einer Zeile, enthält. Um das getrennte Assemblieren Ihres Assembler- 
Quelltextes kommen Sie auch hier nicht herum. Zwingend nötig ist bei der 
Übersetzung die Angabe der Option /ml, damit der Turbo Assembler die 
exakte Schreibweise Ihrer Symbole übernimmt und sie nicht alle groß¬ 
schreibt. 
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Anhang A: Elementare Datentypen und 
Zahlendarstellung 


A.1 Elementare Datentypen in Turbo Pascal 


Datentyp Wertebereich Anzahl Byte im Speicher 


Shorlinf 

-128...127 

1 Byte (mit Vorzeichen) 

Integer 

-32768.J2767 

2 Byte (mit Vorzeichen) 

Longlnt 

-2147483648...2147483647 

4 Byte (mit Vorzeichen) 

Byte 

0...255 

1 Byte (ohne Vorzeichen) 

Word 

0...65535 

2 Byte (ohne Vorzeichen) 

Boolean 

true/false 

1 Byte 

Char 

V...T 

1 Byte (genau 1 Zeichen) 

Real 

2.9*10~ 39 ...1.7*10 38 

6 Byte (Genauigkeit 11-12 Stellen) 

Single 

1.5*nHL3.4*10 3 « 

4 Byte (Genauigkeit 7-8 Stellen) 

Double 

5.0*10- 345 ...l .7*10 308 

8 Byte (Genauigkeit 15-16 Stellen) 

Extended 

l.riO- 495 '...!.!'^ 4932 

10 Byte (Genauigkeit 19-20 Stellen) 

Comp 

-9.2*10 ,8 ...9.2*10 18 

8 Byte (Genauigkeit 18-19 Stellen) 

String 

'aa'... 

Länge+ 1 Byte (max. 255) 

Zeiger 

Adresse 

4 Byte 


Die Datentypen Single, Double, Extended und Comp sind nur mit einem 
numerischen Koprozessor (1$N+)) oder nach Einbindung des Koprozessor 
Emulators ({$N+,E+D verfügbar. 


A.2 Zahlendarstellung 


A.2.1 Darstellung von Integer-Zahlen im Rechner 

Integer-Zahlen werden entweder als Zahlen im Zweierkomplement oder als 
BCD-codierte Zahlen dargestellt. 

Einerkomplement-Darstellung: 

Hierbei können positive und negative ganze Zahlen in einem Wertebereich, 
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der abhängig ist von der Anzahl der verwendeten Bits, dargestellt werden. 
Um im Einerkomplement aus einer positiven Zahl eine negative zu 
machen, müssen alle Bits umgedreht werden. Man erhält so eine Bitfolge, 
die als negative Zahl vom Rechner interpretiert wird. Der Nachteil besteht 
in der Doppeldeutigkeit der 0, es gibt sie mit positivem und negativem 
Vorzeichen. Der passende Assembler-Befehl zur Bildung des Einer¬ 
komplements lautet NOT. 

Zweierkomplement-Darstellung: 

Hierbei können positive und negative ganze Zahlen in einem Wertebereich, 
der abhängig ist von der Anzahl der verwendeten Bits, dargestellt werden. 
Um im Zweierkomplement aus einer positiven Zahl eine negative zu 
machen, müssen alle Bits umgedreht und beim letzten Bit eine 1 dazu¬ 
addiert werden. Man erhält so eine Bitfolge, die als negative Zahl vom 
Rechner interpretiert wird. Der passende Assembler-Befehl zur Bildung 
des Zweierkomplements lautet NEG. 

BCD-Darstellung: 

Bei dieser Darstellungsweise wird jede Ziffer einer Dezimalzahl als 4-Bit- 
Dualzahl codiert und im Rechner abgelegt. 


A.2.2 Darstellung von Fließkommazahlen 

FlieJ3kommazahlen werden immer in der Form Vorzeichen/Exponent/ 
Mantisse im Rechner abgelegt. Je nach Genauigkeit und Wertebereich 
wird die Größe der Felder Exponent und Mantisse verändert. Die Zahl wird 
immer so umgeformt, daß die Basis für den Exponent eine 2 ist und die 
Mantisse mit 1,... beginnt (normalisierte Darstellung). Beim Ablegen der 
Mantisse wird die 1 vor dem Komma nicht mit abgespeichert. So wird ein 
Bit gespart. Das Feld Exponent bekommt einen Wert, der, abhängig vom 
Darstellungstyp der Zahl, durch Addition mit einer Konstanten gebildet 
wird (Single +127, Double +1023, Extended +16383). So sind auch nega¬ 
tive Exponenten möglich. 


A.2.3 Zusammenfassung 

Die Frage, wie eine Bitfolge im Speicher interpretiert wird, hängt immer 
davon ab, was vom Programm oder vom Programmierer erwartet wird bzw. 
vorgesehen ist. So kann z.B. eine 64-Bit-Folge entweder als eine Long- 
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Integer- oder als eine Double-Precision-Zahl interpretiert werden. Je nach 
Interpretation wird natürlich ein anderer Zahlenwert weiterverarbeitet. 

Eine Übersicht über die Zahlenformate zeigt die nächste Tabelle: 


Datenformate 


Word Integer 


Short Integer 


Long Integer 


BCD 


Single 

Precision 


Double 

Precision 


Extended 

Precision 


Bereich 


±1CF 


± 10 


±10 


18 


±10 


±18 


±10 


+38 


±io- 


±308 


±io- 


±932 


Genauigkeit 


16 Bits 


32 Bits 


64 Bits 


18 Digits 


24 Bits 


53 Bits 


64 Bits 


Darstellung im Speicher 


Zweier Komplement 


15 


| Zweier Komplement 
31 0 


Zweier Komplement 


63 


S X dl7 ... dO 


79 72 


BE 


Mantisse 


31 23 


BE 


Mantisse 


63 52 


S BE Mantisse 


79 


64 


Bild A. 1: Übersicht der 
Zahlenformate 


Erklärung der verwendeten Abkürzungen: 

S: Sign , Vorzeichenbit 

BE: Biased Exponent der bezogene Exponent einer Fließkommazahl. 
X: Ohne Bedeutung 

d??: Ein Digit (4 Bit), d.h. die ??. Stelle einer BCD Zahl. 
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Anhang B: Glossar 


Adresse: 


Array: 

Assembler: 

Ausdruck: 

Bindung: 

BIOS: 

BIOS- 

Interrupts: 

Breakpoint: 


Man unterscheidet dabei zwischen einer physikalischen 
und einer logischen Adresse. Jede Stelle im Speicher des 
Rechners hat eine Adresse, unter der sie angesprochen 
werden kann. Diese Adresse wird als physikalische 
Adresse bezeichnet. Unter einer logischen Adresse ver¬ 
steht man eine Adresse, die z.B. nur innerhalb eines 
Segments als Relativadresse verwendet wird (Inhalt eines 
Adreßregisters). Um eine Speicherstelle ansprechen zu 
können, muß sie immer erst in eine physikalische 
Adresse umgewandelt werden. 

Ein Feld, das über einen Index adressiert werden kann 
und aus mehreren Elementen desselben Datentyps 
besteht. 

Ein Programm, das Mnemonics in Maschinensprache 
übersetzt. 

Ein Ausdruck wird aus mehreren Operatoren und Ope¬ 
randen gebildet und muß bestimmten Syntaxregeln 
folgen. 

Beim Binden erhält das aufrufende Programm die 
Adresse der aufzurufenden Prozedur. Diese Adreßbildung 
kann zum einen beim Kompilieren und Binden/Linken 
des Programms (frühe Bindung) oder erst zur Laufzeit 
des Programms (späte Bindung, eine der Stärken der 
OOP zusammen mit der Vererbung) passieren. 

Basic-Input-/Output-System. Im BIOS-ROM sind Routi¬ 
nen enthalten, um das Betriebssystem laden zu können. 
Mit Hilfe des BIOS kann man auf Peripheriegeräte zu¬ 
greifen, ohne deren speziellen Aufbau zu kennen. 

Interrupts des Rechners, mit deren Hilfe BIOS-Funk- 
tionen aufgerufen werden können. 

Eine Stelle, an der das Programm angehalten wird. Ein 
Breakpoint kann auch durch Angabe einer bestimmten 
Bedingung ausgelöst werden. Wenn er bei jedem Befehl 
ausgelöst wird, spricht man von einem globalen Break¬ 
point. 
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Compiler: 

COM-Datei: 

CPU: 

CPU-Register: 

CS:IP: 

Default-Wert: 

Destruktor: 

Dialogbox: 

Disassembler: 

DMA: 

DOS: 

DOS-Interrupts: 

EXE-Datei: 

Hardware- 

Interrupt: 

Instanz: 


Ein Programm, das einen Quelltext einer Hochsprache 
(z.B. Turbo Pascal) in Maschinensprache übersetzt. 

Eine ausführbare Datei, die keine Verschiebeinformation 
für den Lader enthält. 

Central Processing Unit. Eine CPU ist die Zentral¬ 
einheit/der Prozessor eines Rechners. 

Schnelle Speicherstelle (Register) auf dem CPU-Chip. 

Beschreibt den aktuellen Wert des Befehlszeigers 
(Instruction Pointer). Dieser wird gebildet durch den 
Inhalt des CS-(Code-Segment-)Registers und des IP- 
(Ins truction-Pointer-) Registers. 

Vorgabewert in einem Programm. Wird dieser Wert nicht 
geändert, so wird er übernommen. 

Eine Methode, die mit dem neuen reservierten Wort 
DESTRUCTOR deklariert wird. Hierbei wird die Größe 
eines Objekts direkt vor dem Entfernen dieses Objekts 
vom Heap, also zur Laufzeit des Programms, ermittelt. 

Der Benutzer macht seine Eingaben in einem bestimm¬ 
ten Fenster, der sogenannten Dialogbox. Dabei werden 
die letzten Eingaben in einer Liste gespeichert, so daß sie 
ohne viel Aufwand wiederholt werden können. 

Ein Programm, das Maschinenbefehle in lesbaren 
mnemonischen Code umwandelt. 

Direct Memory Access. Hierbei werden die Daten an der 
CPU vorbei zum anfordemden Gerät übertragen. 

Disk Operating System. Ein hardwareunabhängiger Teil 
des Betriebssystems, der z.B. für die Verwaltung der 
Peripheriegeräte zuständig ist. 

Interrupt(s) des Rechners, mit deren Hilfe DOS-Funk- 
tionen aufgerufen werden können. 

Eine ausführbare Datei, die Verschiebeinformation für 
den Lader enthält. 

Ein Interrupt, der durch die Rechner-Hardware generiert 
wird, z.B. durch einen Timer. 

Eine Variable eines Objekttyps, in den meisten Fällen 
sind Instanz und Objekt dasselbe. 
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Interrupt: 


Joker(zeichen): 

Kapselung: 

Konstruktor: 

Laufzeitfehler: 

Linker: 

Makro: 

Menü(leiste): 


_ Anhang 

Bei einem Interrupt wird das gerade bearbeitete Pro¬ 
gramm unterbrochen und zu einer sogenannten Inter- 
rupt-Service-Routine verzweigt. Ist die Routine beendet, 
wird die Abarbeitung des unterbrochenen Programms 
wieder aufgenommen. 

Ein Platzhalter für einen oder mehrere Buchstaben, z.B 
bei MS-DOS die Zeichen »*« und »?«. 

In einem Objekt werden Code und Daten miteinander 
verbunden. Diese Verbindung bezeichnet man als 
Kapselung. 

Eine Methode, die mit dem neuen reservierten Wort 
CONSTRUCTOR deklariert wird. Hierbei wird ein Objekt 
initialisiert, das virtuelle Methoden enthält. Ohne vor¬ 
herige Konstruktor-Deklaration ergibt der Aufruf einer 
virtuellen Methode einen Laufzeitfehler. 

Bei der Ausführung eines Programms ist ein Fehler ent¬ 
standen. Das Programm wird dann abgebrochen und 
eine entsprechende Fehlermeldung ausgegeben. 

Ein Programm, das aus einem übersetzten Programm, 
meist eine Datei mit der Erweiterung ».OBJ« 
(Objektdatei), ein ausführbares Maschinenprogramm 
erzeugt, indem es z.B. für eine EXE-Datei die Tabelle der 
Verschiebeinformationen mit dem eigentlichen Programm 
zusammenbindet. 

Eine Zusammenfassung von Befehlen, die durch eine 
Bezeichnung repräsentiert werden, z.B. in einem 
Assembler-Quelltext. Beim Übersetzen ersetzt dann der 
Assembler diese Bezeichnung jedesmal durch die 
Befehle. 

Eine Menüleiste befindet sich bei Turbo Pascal und 
Turbo C in der obersten Zeile und kann durch Drücken 
von [ FlO 1 aktiviert werden. Bei der Auswahl einer Menü¬ 
bezeichnung durch Drücken der Cursortasten oder 
durch Drücken von [ alt ] und dem Anfangsbuchstaben 
erscheinen Pull-down-Menüs, die herunterklappen. Aus 
diesen Menüs können dann weitere Unterpunkte aus¬ 
gewählt werden. 
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Methode: 


Mnemonic: 

Nachkomme: 

Objekt: 

Objektdatei: 

Objekt¬ 

hierarchie: 

Objekttyp: 

OOP: 

Operand: 

Operator: 


Eine in einem Objekt definierte Prozedur oder Funktion. 
Dabei wird zwischen statischen und virtuellen Methoden 
unterschieden. 

Statisch: Diese Methode wird bei der frühen Bin¬ 

dung implementiert. Die Adresse der 
Methode wird bei der Kompilierung des 
Programms ermittelt wie bei normalen 
Pascal-Prozeduren und -Funktionen. 

Virtuell: Diese Methode wird bei der späten Bin¬ 

dung implementiert. Die Adresse der 
Implementierung wird zur Laufzeit des 
Programms ermittelt. Hierfür sind in 
Turbo Pascal 5.5 spezielle Hilfsmittel 
vorgesehen. 

Eine abgekürzte, symbolische Schreibweise für einen 
Maschinenbefehl. 

Ein Nachkomme ist ein Objekttyp, der wie in einem 
Stammbaum von einem anderen Objekttyp geerbt hat. 

Ein Objekt ist eine Variable eines Objekttyps. 

Diese Datei (meistens mit der Endung .OBJ) entsteht 
nach einem Übersetzungsprozeß. Sie ist nicht ausführ¬ 
bar und enthält Informationen für den Linker zum 
Erzeugen einer ausführbaren Datei. 

Durch Vererbung können mehrere Objekte Zusam¬ 
menhängen. Dieser Zusammenhang wird durch die 
Objekthierarchie beschrieben. Diese Hierarchie wird im 
Objekthierarchie-Fenster grafisch angezeigt. 

Ein Objekttyp ist eine spezielle Struktur, ähnlich einem 
Pascal-RECORD, der außer Datenfeldern auch Pro¬ 
grammcode (Prozeduren und Funktionen) enthält. 

Objektorientierte Programmierung. Ein neuartiges Kon¬ 
zept zur Lösung komplexer Programmieraufgaben. 

Die Operanden werden durch einen Operator miteinan¬ 
der verknüpft. 

Ein Operator kennzeichnet eine Aktion, die ausgeführt 
werden soll, z.B. wird bei einem »+«-Zeichen eine Addition 
der Operanden ausgeführt. 
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Polymorphie: 


Programm¬ 

zähler: 

Quelltext: 

Run time error: 

Segment 

(register): 


Stack: 

Symbol: 


Trace: 

Vererbung: 

Verschieb¬ 

barkeit: 

Vorfahr: 


_ Anhang 

Wird in einem Objekt eine Funktion definiert, dann im¬ 
plementiert jedes Objekt, das diese Funktion geerbt hat, 
die Funktion in der für dieses Objekt erforderlichen Art 
und Weise. 

Enthält die Adresse des nächsten auszuführenden 
Maschinenbefehls. Siehe auch CS:IP. 

Der Text eines Programms, meist eine reine ASCII-Datei. 

Siehe Laufzeitfehler. 

Die physikalische Speicher-Adresse wird aus dem Inhalt 
eines Segmentregisters und dem Inhalt eines Adreß¬ 
registers gebildet. Das Segmentregister legt dabei den 
Beginn des Segments im Speicher fest, das Adreßregister 
gibt dann die Lage innerhalb dieses Segments an. Ein 
Segment kann nicht größer als 64 Kbyte werden. 

Ein Bereich für Daten mit einer LIFO-(Last in/first out-) 
Struktur. Auf diesem wird z.B. die Rücksprungadresse 
bei einem Unterprogrammaufruf abgelegt. 

Ein Symbol ist eine Bezeichnung für z.B. eine Variable 
oder eine Funktion. Diese Bezeichnungen werden in den 
sogenannten Symboltabellen abgelegt. Durch die Wahl 
einer bestimmten Option beim Übersetzen und Binden 
des Programms wird an eine ausführbare Datei die 
Symboltabelle angehängt, so daß z.B. der Turbo Debug¬ 
ger auf die Symbole zurückgreifen kann. 

Abarbeitung eines Programms im Einzelschrittmodus. 

Bei der Definition eines Objekts wird dieses in einen 
sogenannten Objektstammbaum eingeordnet. Jedes 
Objekt erbt dabei den Code und die Daten der Vorfahren. 

Ein ausführbares Programm kann in der Regel an eine 
beliebige Adresse im Speicher geladen werden. Der Lader 
benötigt Informationen, welche Teile des Programms 
modifiziert werden müssen, um das Programm an eine 
beliebige Stelle im Speicher verschieben zu können. 

Dieser Objekttyp wird an einen Nachfahren vererbt. Wird 
in einer Deklaration eines Objekttyps ein weiterer in 
Klammem angegeben, so ist dieser der direkte Vorfahr 
dieses Objekttyps. 
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Anhang C: Benutzung der Begleitdisketten 


Übertragen der lauffähigen Programme auf den Portfolio 

Auf den Begleitdisketten sind alle im Buch vorgestellten Programme 
bereits in kompilierter Form, d. h. als EXE-Dateien vorhanden. Sie können 
direkt vom PC mittels Kartenlaufwerk auf eine RAM-Karte kopiert werden. 
Die meisten Programme nutzen den Portfolio-Speicher voll aus, so daß vor 
Ihrem Start die interne RAM-Disk des Portfolio möglichst klein gemacht 
werden muß. Geben Sie dafür den DOS-Befehl 

FDISK 8 [Return 1 

ein. Dieser Befehl minimiert die Größe der internen RAM-Disk auf 8 Kbyte. 
Anschließend kann das gewünschte Programm von der RAM-Karte 
gestartet werden, z. B.: 

A:BEISPIEL [Return 1 


Neukompilierung der Programme 

Wenn Sie irgendwelche Änderungen am Quelltext der Programme 
vorgenommen haben, müssen Sie diese natürlich auch neu kompilieren 
bzw. bei Assembler-Programmen neu assemblieren. Als Ziellaufwerk für 
die EXE-Datei sollte man das Kartenlaufwerk für die RAM-Karten 
angeben. Die neu entstandenen EXE-Dateien sollten dann mit dem 
Programm Portmaker bearbeitet werden, damit sie mit Sicherheit auf dem 
Portfolio zu starten sind. Anschließend können die Programme wie oben 
beschrieben gestartet werden. 
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Anhang D: Hinweise auf weiterführende Literatur 


Turbo Pascal BedienerReferenzhandbuch und Ergänzungsteil zur 
objektorientierten Programmierung, Borland International Inc. 

Die Nachschlagewerke zu den vorhandenen Funktionen. Der Ergän¬ 
zungsband liefert eine Einführung in die objektorientierte Programmie¬ 
rung. 

Turbo Pascal 5.5 Schnellübersicht, Steiner, Markt & Technik Verlag, ISBN 
3-89090-881-0 

Wenn Ihnen die Originalhandbücher zu dick sind, können Sie hier schnell 
die gewünschten Informationen finden. 

Effektives Programmieren mit Turbo Pascal, Kolbeck, Markt & Technik 
Verlag, ISBN 3-89090-771-7 

Wenn Sie in Turbo Pascal maschinennah programmieren wollen, sollte 
dieses Buch das Richtige für Sie sein. Hier seien nur als Schlagworte TSR 
und DFÜ genannt. 

Turbo Assembler Bediener- und Referenzhandbuch, Borland International 
Inc. 

Die Nachschlagewerke zum Turbo Assembler. Im Bedienerhandbuch 
finden sich wertvolle Hinweise zur Assembler-Programmierung, speziell 
auch für den MASM-Modus. 

Turbo Assembler Schnellübersicht, Soltendick-/Schuschk-/Riemenschnei- 
der, Markt & Technik Verlag, ISBN 3-89090-302-9 

Die Schnellübersicht bietet eine zusammenfassende Sprachreferenz für 
den Turbo Assembler und Debugger. Für ein kurzes Nachschlagen kom¬ 
men Sie mit einem statt mit drei Büchern aus. 

PC-Programmierung in Maschinensprache, Monadjemi, Markt & Technik 
Verlag, ISBN 3-89090-503-X 

Falls Ihnen die Einführung in die Assembler-Programmierung im Turbo- 
Assembler-Bedienungshandbuch nicht umfangreich genug war, können 
Sie in diesem Buch weitaus mehr dazu finden. 
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Anhang -- 

Turbo C Bediener- und Referenzhandbuch Borland International Inc. 

Die Nachschlagewerke zum Turbo C. Im Referenzhandbuch findet man die 
Auflistung aller C-Funktionen. Beide Werke sind meiner Ansicht nach 
besser zum Lernen von Turbo C geeignet als so manches Buch. 

C in Beispielen , Huckert, Markt & Technik Verlag, ISBN 3-89090-466 

Enthält eine umfangreiche Bibliothek an Routinen, die sofort in eigene 
Programme übernommen werden können. 

Turbo-C 2.0 Schnellübersicht Haselier, Markt & Technik Verlag, 
ISBN 3-89090-215 

Wenn Ihnen die Originalhandbücher zu dick sind, können Sie hier schnell 
die gewünschten Informationen finden. 

PC Intern, Tischer, Data Becker, ISBN 3-89011-331-1 

Vom Umfang und Inhalt her, die »Bibel« für den PC-Programmierer. 

Turbo Pascal Intern , Tischer, Data Becker, ISBN 3-89011-374-5 

Ein Muß für jeden Turbo-Pascal-Programmierer. 

Das 8086/8088 Buch Rector/Alexy, te-wi Verlag, ISBN 3-921803-11-X 

Das Referenzhandbuch für diesen Prozessor. Es enthält nicht nur die 
Beschreibung aller Befehle, sondern auch Timing-Diagramme und weitere 
Informationen über die Architektur dieses Prozessors. 
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Stichwortverzeichnis 


A 

ABSOLUT 33 
absolute Sprünge 209 
Adresse 331 
Adreßbus 9 
Adreßbildung 10 
Adreßraum 32 
adrtab 101 
Alarmzeit 65, 67 
Are 100 

Archivierungsbit 43, 45 
ARG-Direktive 325 
Array 331 

ASCII-Code 22, 51, 54 
ASCII-File 220 
ASCII-Wert 316 
Assembler 331 
Attribut-Byte 22, 45 
Ausdruck 331 

B 

Balkengrafik h 167 
- v 170 

Bank-Switching 13 
Bar 100 
Bar3D 100 
Baud 57, 60 
Baud-Rate 58 
Baumstruktur 263 
BCD-codiert 327 
BCD-Darstellung 328 
BCD-Format 65 
BCD-Zahlen 66 

Bedienung des Beispielprogramms 268 
Benutzerführung 313 
Bezeichnung der Variablen 265 
Bildschirmmodi 311 
Bildschirm-Refresh 112, 114 
Bindung 331 
BIOS 331 

BlOS-Interrupts 331 
Boot-Routine 38 
Boot-Sektor 36 ff., 40 f., 44, 49 
Box 100 
Breakpoint 331 
Bresenham-Algorithmus 117 

c 

C-String 317 

CCM 13, 31, 34 f., 38 f., 40, 44, 47 ff., 165 


CCM-RAM 33 

Character-ROM 30, 158 

Chart-Grafik-Programm 164 

Circle 100 

ClearDevice 100 

CloseGraph 100 

ClrScr 88 

clrscr() 311 

Cluster 37 f., 40, 43 

Cluster-Byte 46 

Cluster-Nummer 41 

COM-Datei 332 

Comp 327 

Compiler 72, 332 

Compiler-Einstellungen 267 

CONIO.H 311 

coreleft() 320 

costab 101 

cprintfQ 311 

CPU 332 

CPU-Register 332 

Credit-Card-Memory 31 

CRT 71 

CRT-Unit 68, 78 
CrtAsm.Asm 91 
Cursormode 29 

D 

Datei einrichten 164 
Datenbit 58, 60 
Datenblöcke 164, 166 
Datenbus 11 
Datenbyte 59 
Daten eingeben 165 
- laden 166 
Datenmenü 164 f. 
Datensätze 165 ff. 
Default-Wert 332 
Delay 88 
DelLine 88 
Destruktor 332 
Dialogbox 332 
DIP-Interrupt 61h 311 f. 
direction 100 
Disassembler 332 
Disk Transfer Area 208 
Disk-Table 49 
DISVER.EXE 268 
DMA 332 
DOS 332 

DOS-Interrupt 332 
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Stichwortverzeichnis_ 

DOS-Stacks 217 
Double 327 

Double-Precision-Zahl 329 
DrawPoly 100 
Druckstatus 170 
DTA 208 f., 219 

dynamische Datenverwaltung 263 
dynamischer Modus 25 f. 


Einbindung von Assembler-Routinen 322 

Einerkomplement 328 

Einerkomplement-Darstellung 327 

Ellipse 100 

Endspur 200 

Environment 209 

Environment-Blocks 207, 209 

Environment-Speicher 210 

erweiterter Tastaturcode 51, 53 f., 315 f. 

EXE-Datei 74, 332 

EXEC-Fehler 74, 78 

EXEC-Funktion 206 

EXEC-Loader 32, 210 

Explosionsgrafik 169 

Exponent 328 

Extended 327 

Extension 42 

F 

FAT 36, 38, 40 f., 47 
FAT-Eintrag 43 f. 

FCB 208 
Fehlercode 48, 50 
Fenstertechnik 310 
Fensterverwaltung 313 
File-Allocation-Table 36 
File-Control-Blöcke 208 
FillEllipse 100 
FillPoly 100 
Flag-Register 14 f., 216 
Fließkommazahlen 328 
FloodFill 100 

G 

Gadget 166 
gerade Parität 58, 60 
getchO 311 
GetColor 100 
GetPixel 100 
GetScreenMode 89 
GetScreenPos 89 
GotoXY 88 
gotoxyQ 311 


Grafikbyte 30, 157 
Grafikmenü 164 
Grafikmodus 26, 29 
GRAPH-Unit 71, 100 
Grafik-Unit 163 

H 

Handle-Funktionen 208 
Handshaking 61 

Hardware-Interrupt 14 ff., 51, 332 
Hauptverzeichnis 45 f. 

Heap 207 

hierarchisches Dateisystem 208 
Hot-Key 51, 205, 215 ff., 219 

I 

Indos 217 
Indos-Flag 218 
InitGraph 100 f. 

InsLine 88 
Instanz 332 
Integer-Tabelle 129 

integrierte Entwicklungsumgebung 325 
Interrupt 333 
Interruptcontroller 14 
Interrupt-Enable-Register 63 f. 
Interrupt-Identification-Register 64 
Interrupt-Identifikations-Register 65 
Interrupt-Leitung 13 f. 

Interrupts 14, 21 

Interrupt-Service-Routine 15, 21, 34, 49 
Interrupt-Vektor-Tabelle 15 f., 30 

K 

Kapselung 236, 333 
kartesische Koordinaten 127 
kbhitO 311 
KeyPressed 88 

Kommandoprozessor 12 f., 55, 206, 217 f., 
231 

Konstruktor 333 

Kontextwechsel 219 

Kopieren von Speicherinhalten 319 

Kuchen 168 

Kugelkoordinaten 127 

L 

Laufzeitfehler 333 
LCD-Bildschirm 312 
LCD-Controller 26, 29 f. 

Leitungszustand 62 
Line 100 
LineRel 100 
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Stichwortverzeichnis 


LineTo 100 
Linker 333 
Load 96 
LoadBild 90 
Long-Integer 328 

M 

Makro 333 
Mantisse 328 
Media-Descriptor 38 ff., 47 
memcpyO 318 
memmove() 318 
Menüleiste 333 
Menüprogrammierung 313 
Menüroutine 314 
Methode 236, 334 
MK_FP0 311 
Mnemonic 334 
Modemstatus 60, 62 
Modus 25 
MoveRel 100 
MoveScreen 89 
MoveTo 100 
Multitasking 214 

N 

Nachkomme 334 
nicht genug Speicher 74 
NMI 27 
NoSound 89 
NumLock 28 

o 

Objekt 334 

Objektdatei 334 

Objekthierarchie 334 

objektorientierte Programmierung 235 

Objektstammbaum 236 

Objekttyp 334 

Offset 9, 11 

OOP 334 

Operand 334 

Operator 334 

Options-Menü 72 

OutTextXY 100 

P 

Paragraphen 219 
Parity-Bit 58 
PCX-File 220 
PieSlice 100 
Polling 21 

Polymorphie 236, 335 


PORTORT 78 
Portfolio-Modus 25 f. 

PORTMAKER 74 

Portmenue 90 

Power-down-Sequenz 55 f. 

Präsentationsgrafiken 143 

printfO 317 

PROC-Anweisung 325 

Program Segment Prefix 206 

Programmentwicklung auf dem PC 312 

Programmzähler 335 

Projektdatei 325 

Prozessorregister 219 

PSP 206 f., 209, 219 

PutPixel 100 

Q 

Quadranten 128, 130 
Quelltext 335 

R 

Rahmen 312 
RAM-COPY 200 
RAM-Disk 31, 165, 200 
RAM-Karte 34 
Range-Checking 73 
ReadKey 88 

Receive-Data-Register 64 
Receiver-Data-Register 59 f. 
Receiver-Shift-Register 59 
Rectangle 100 
reentrant 216 
Referenzhandbuch 340 
Rekursionsaufruf 146 f. 

Ringpuffer 51 
Run time error 335 

s 

Säulengrafik 168 
Save 96 
Scan 51 
Scan-Code 53 f. 
scanfQ 316 
Schrittweite 128 f. 

Screen-Refresh 26 ff. 

Scroll 96 
ScrollScreen 89 
Sector 100 
Segment 9 f., 207 
Segmentierung 9 f. 

Segmentregister 11,206,335 
Segmentüberlauf 49 
Seite 48 f. 


343 



Stichwortverzeichnis 


Sektoren 35, 40, 49 

Serial-Interrupt-Vektor-Register 64 

serielle Schnittstelle 57 

SetColor 100 

SetFillStyle 100 

SetTextStyle 100 

Single 327 

Single-Task-System 214 
SIVR 64 

Slice-Routine 144 
Software-Interrupt 14 f. 

Sound 89 

Speichermodelle 325 
Speicherverwaltung 320 
Stack 15,206,219,335 
Stack-Checking 73 
Stack-Überlauf 146, 216 
Startbit 57 f. 

Startspur 200 
statisch 25, 334 
statischer Modus 26 
Status-Interrupts 64 
Steigung m 119 
Steuercodes 52 
Stopp-Bit 58, 60 
StoreBild 90 
strchrO 315 
Symbol 335 

T 

Tabelleninterrupt 16, 21 
Task-Switching 215 
Tastatur-Controller 50 f. 
Tastatureingabe 316 
Tastatur-Flag 216 
Tastatur-Interrupt 215 
Tastaturprozessor 215 
Tastaturpuffer 51 f., 55, 215, 231 
Tastaturstatus 56 
Tastatur-Status-Byte 215 
TCC.EXE 325 
Textmode 89 
TextPixel 100 
Timer 27 f. 

TUNK 325 
Tortengrafik 143, 168 
Tortengrafik 3d 170 


TPASCAL 325 
Trace 335 
Track 35, 39, 48 f. 

Transmission-Holding-Register 58, 60, 64 

Transmission-Shift-Register 58 

Treppenmuster 117 

TSR-Aufrufe 217 

TSR-Handler 224 

TSR-Programme 21, 206, 215 f. 

TSR-Programmierung 205 
Turbo Assembler 325 
TYPEDEF.H 266 

u 

UART 57 f., 63 
ungerade Parität 58 
Unterverzeichnis 43, 45 f. 
USES-Anweisung 100 

V 

Vererbung 236, 335 
Verschachtelungstiefe 149 
Verschiebbarkeit 335 
versteckte Daten 200 
Video-Modus 22, 31, 219 
Video-RAM 11, 23, 28 ff., 112, 219 
virtuell 334 

virtuelle Bildschirmposition 23 
Volume 35 ff., 42 f., 45 
Vorfahr 335 
Vorzeichen 328 

w 

Wertepaar 128 
WhereX 88 
WhereY, 88 
window() 311 

Window-Programmierung 96 

z 

Zeichen-Code-Tabelle 31 
zweidimensionale Balkengrafik 167 
Zweierkomplement 327 
Zweierkomplement-Darstellung 328 
Zylinder 48 

Zylinderkoordinaten 127 
Zylindemummer 49 
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Portfolio - 


Zum Thema: 

Der Atari Portfolio hat sich zu 
einem der verbreitetsten Pocket- 
Computer entwickelt. Insbeson¬ 
dere seine DOS-Kompatibilität 
und die mitgelieferten Standard¬ 
programme zur Datenverwal¬ 
tung, Textverarbeitung und Kal¬ 
kulation machen diesen »Kleinst- 
rechner« zu einem vielfältig er¬ 
setzbaren Werkzeug. Sein Funk¬ 
tionsumfang kann durch zusätz¬ 
liche Software auf Speicherkar¬ 
ten erheblich erweitert werden. 
Die Software-Entwicklung für den 
Portfolio steckt heute jedoch noch 
weitgehend in den Kinderschu¬ 
hen. Dies mag daran liegen, daß 
die Hardware sowohl Hobby-Pro¬ 
grammierern als auch Entwick¬ 
lern weitgehend unbekannt ist. 


Buchhinweis: 

Bei Markt&Technik erschienen: 

Andreas Grote 

Das Portfolio Praxisbuch 

Einsatz - Beschreibung - 

Anwendung 

1990, 231 Seiten 

Bestellnummer: 90335 



Markt&Technik 


Programmierpraxis 


Aus dem Inhalt: 

Ziel dieses Buchs ist es, das Rät¬ 
selraten um das Innenleben des 
Portfolio zu beenden und zu zei¬ 
gen, wie der Portfolio effektiv pro¬ 
grammiert wird. 

Im ersten Teil werden die tech¬ 
nischen Details des Portfolio be¬ 
schrieben. Vom Adreßraum, den 
Interrupts über den Bildschirm 
und die Tastatur bis hin zur seriel¬ 
len Schnittstelle und zu den RAM- 
Speicherkarten werden die Unter¬ 
schiede zu den »großen« PCs 
offengelegt. 

Der zweite Teil zeigt, wie die »Pro- 
grammier-Aufgabe Portfolio« mit 
Pascal und Assembler gelöst 
wird. Zur Vereinfachung der Bild¬ 
schirmprogrammierung im Text- 
und im Grafik-Modus enthält das 
Buch Units, die Sie in Ihre Pro¬ 
gramme einbinden können. 
Außerdem werden ein Backup- 
Programm für Speicherkarten 
und ein Capture-Programm vor¬ 
gestellt. Anhand des letzteren 
wird die Programmierung spei¬ 
cherresidenter Programme für 
den Portfolio demonstriert. Ein 
Schwerpunkt dieses Teils ist die 
Programmierung eines Chart- 
und Grafik-Programms, das auf 
dem kleinen LCD-Bildschirm die 
Darstellung von Balken-, Säulen 
und Kuchendiagrammen erlaubt. 
Thema des dritten Teils ist schließ¬ 
lich die Programmierung mit C. 


Am Beispiel eines umfang¬ 
reichen Programms zur Verwal¬ 
tung von RAM-Karten werden 
spezifische Programmiertechni¬ 
ken wie Tasten- und Menüpro¬ 
grammierung erläutert. 
Insgesamt ist die »Portfolio Pro¬ 
grammierpraxis« ein ausführ¬ 
liches Lehr- und Nachschlage¬ 
werk zur Realisierung eigener 
Programmideen mit dem Atari 
Portfolio. Es beschreibt: 

• Text- und Grafikprogram¬ 
mierung 

• TSR-Programme 

• Backup für RAM-Speicher¬ 
karten 

• Capture-Programm für LCD- 
Bildschirm 


Systemanforderungen: 

Hardware: 

Atari Portfolio (Bios-Version 1.05 
und höher). 

PC/XT/AT oder Kompatible mit 
RAM-Kartenlaufwerk. 

Mind. eine 64-Kbyte-RAM-Karte, 
mit der die Programme von den 
Disketten auf den Portfolio trans¬ 
feriert werden können. 

Software: 

Pascal, C und Assembler 

(auf der Diskette zum Buch nicht 

enthalten) 
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